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1 .REM 

2 

3 

4 

5 

6 

7 

8 IDENTIFICATION 

9 
10 
11 

12 PRODUCT CODE: AC-U022A-MC 

13 

14 

15 PRODUCT NAME: CZLCPAO LCPOl PRTR DIAG 

16 

17 DATE : JANUARY 15, 1985 

18 

19 MAINTAINER: CSS PRODUCT GROUP DIAGNOSTIC 

20 

21 

22 COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 

23 

24 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 

25 AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

26 CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 

27 FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 
28 

29 THE SOFTWARE DESCRIBED IN THIS DOC"JMENT IS FURNISHED TO THE PURCHASER 

30 UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 

31 CUITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 

32 SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 
33 

34 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 

35 RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 

36 DIGITAL. 
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68 

69 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 

70 ABSTRACT 

71 
72 

73 1.0 ABSTRACT 

74 

75 

76 THIS IS A PDP-11 DIAGNOSTIC WHICH IS DESIGNED TO FUNCTIONALLY EXERCISE 

77 AN LPCOl PRINTER WHILE ATTACHED TO A PDP-11 PROCESSOR. 
78 

P THE DIAGNOSTIC CAUSES THE MICROCODE TO EXECUTE SPECIFIC TESTS. THE 

80 DIAGNOSTIC THEN MONITORS THE LCPOl SERIAL LINE OUTPUT, TRACING TEST 

81 COMPLETION AND ERROR INDICATIONS. 
82 

83 CZLCP IS AN XXDP* DIAGNOSTIC. 

84 

85 

86 

87 1.1 MAINTENANCE HISTORY 

88 

89 

90 CZLCP IS A NEU PDP-11 DIAGNOSTIC. 

91 

92 AUTHOR: DIGITAL EQUIPMENT CORPORATION 

93 COMPUTER SPECIAL SYSTEMS 

94 HUDSON. NEU HAMPSHIRE 
95 

96 PREPARED BY: 

97 DICE SYSTEMS. INC. 

98 7 1/2 HARRIS ROAD 

99 NASHUA. NEU HAMPSHIRE 
100 

101 

102 EDIT HISTORY: 

103 

104 NEU VERSION 
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106 

107 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 

108 REQUIREMENTS 
109 

110 

111 2.0 REQUIREMENTS 

112 

113 

114 

115 

116 2.1 EQUIPMENT 

117 

118 

119 THIS DIAGNOSTIC WILL RUN ON ALL POP 11 FAMILY COMPUTERS WHICH HAVE 

120 EITHER A DLll OR A DZll SERIAL LINE AND AN LCPOl PRINTER. 
121 

122 
123 

124 2.2 STORAGE 

125 

126 

127 THIS PROGRAM REQUIRES A PDP-11 SYSTEM WITH AT LEAST 28K WORDS OF 

128 MEMORY . 
129 

130 
131 

132 2.3 SOFTWARE 

133 

J 34 

135 THIS PROGRAM REQUIRES XXOP* OPERATING SYSTEM SOFTWARE, VERSION 1.2 OR 

136 LATER. 
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138 

139 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 

140 TEST OVERVIEW 
141 

142 

143 3.0 TEST OVERVIEW 

144 

145 

146 3,1 SECTION DESCRIPTIONS 

147 

148 

149 THIS DIAGNOSTIC CONSISTS OF ONE SECTION, CONTAINING THREE TESTS. AS 

150 FOLLOWS: 
151 

152 1. SERIAL LINE TEST 

153 

154 2. COLOR PRINTER SELF TEST 

155 

156 3. PRINTER DISPLAY TEST 

157 

158 

159 3.2 SERIAL LINE OPERATIONS 

160 

161 THE PROGRAM HAS BEEN DESIGNED TO ALLOW THE DIAGNOSTIC TO TEST THE LCPOl 

162 PRINTERS WHILE ATTACHED BY SERIAL LINE INTERFACES. 
163 

164 THE FOLLOWING DIALOGUE ALLOWS FOR SERIAL LINE SELECTION: 

165 

166 R CZLCP?? 

167 CZLCP.BIN 
168 

169 LCPOl LINE PRINTER DIAGNOSTIC 

170 

171 SERIAL LINE SELECTION MENU 

172 1 DLll SERIAL LINE 

173 2 DZll SERIAL LINE 

174 TYPE MENU SELECTION <1>? 
175 

176 THE APPROPRIATE NUMBER (ONE OR TWO) SHOULD BE ENTERED BY THE OPERATOR. 

177 TYPING A CARRIAGE RETURN WILL RESULT IN SELECTION OF THE DEFAULT SERIAL 

178 LINE. WHICH IS THE DLll. 
179 

180 

181 3.2.1 DLll SUPPORT - 

182 

183 THE PROGRAM WILL SUPPORT DLll OF THE FOLLOWING TYPE: 

184 

185 1. ALL UNIBUS DLllS 

186 

187 2. DLVll 

188 

189 3. OLVll-F 
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191 

192 CZLCP DIAGNOSTIC PROGRAn USER'S DOCUMENT PAGE 6 

195 TEST OVERVIEW 
194 

195 

196 THE PROGRAM MILL PROMPT FOR INDIVIDUAL SETUP PARAMETERS AS THEY ARE 

197 REQUIRED BY EACH INTERFACE. 
198 

199 

200 3.2.2 DZll SUPPORT - 

201 

202 THE PROGRAM WILL SUPPORT BOTH DZll AND THE DZVll. THE PROGRAM WILL 

203 PROMPT THE OPERATOR FOR THE REQUIRED SETUP PARAMETERS. THESE INCLUDE 

204 THE FOLLOWING: 
205 

206 1. CSR ADDRESS 

207 

208 2. THE DZ LINE NUMBER BEING USED (0-7). 

209 

210 3. THE DZ'S BAUD RATE 

211 

212 4. THE NUMBER OF STOP BITS 

213 

214 5. NUMBER OF DATA BITS 

215 

216 6. WHETHER OR NOT PARITY IS BEING USED 

217 

218 7. IF PARITY IS USED. IS IT ODD OR EVEN 

219 

220 

221 

222 4.0 ASSUMPTIONS 

223 

224 

225 THE ONBOARD MICROCODE DIAGNOSTICS HAVE COMPLETE RESPONSIBILITY FOR 

226 DEVICE TEST COVERAGE. THE DIAGNOSTIC ONLY VERIFIES THE INTERFACE AND 

227 REPORTS ERRORS DETECTED BY THE MICROCODE DIAGNOSTICS. 
226 

229 

230 5.0 OPERATING PROCEDURE 

231 

232 

233 

234 5.1 STARTING ADDRESS OR ADDRESSES 

235 

236 

237 THE INITIAL STARTING ADDRESS TO RUN THE ENTIRE LCPOl DIAGNOSTIC IS 

238 LOCATION 200(8). THE RESTART ADDRESS IS 300 (8). 
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240 



241 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 

242 OPERATING PROCEDURE 
243 

244 

245 5.2 OPERATIONAL SUITCH SETTINGS - HAROUARE AND SOFTWARE 

246 

247 

248 WHEN THE DIAGNOSTIC IS STARTED AT ADDRESS 200(8), IT WILL DETERMINE 

249 WETHER OR NOT THE PROCESSOR HAS A HARDWARE (H/W) SWITCH REGISTER (SWR). 

250 IF THERE IS A H/W SWR. THE DIAGNOSTIC WILL USE BOTH THE HARDWARE 

251 REGISTER. AT LOCATION 177570. AND THE SOFTWARE (S/W) SWR LOCATED AT 

252 ADDRESS 176(8). IF A BIT IS SET IN EITHER REGISTER. EXECUTION WILL BE 

253 MODIFIED AS DESCRIBED IN THE 'SWITCH REGISTER BIT DEFINITIONS' SECTION 

254 OF THIS DOCUMENT. 
255 

256 

257 5.2.1 CONTROL -G - 
258 

259 THE OPERATOR MAY CHANGE THESE REGISTER VALUES BY ENTERING A CONTROL -G 

260 AT THE CONSOLE TERMINAL. THE DIAGNOSTIC WILL PROMPT THE OPERATOR WITH 

261 THE MESSAGE: 
262 

263 H/W SWR - XXXXXX SWR - XXXXXX NEW SWR « 
264 

265 AFTER EXECUTION BEGINS, THE OPERATOR MAY CHANGE THE VALUE OF THE SWR. 

266 AT ANY TIME. BY ENTERING A CONTROL -G (G) AT THE CONSOLE. 
267 

268 IN RESPONSE TO THE PROMPTS. THE OPERATOR MAY ENTER UP TO SIX (6) OCTAL 

269 DIGITS. THE DIGITS MAY BE ANY COMBINATION OF :0.1,2,3.4.5,6.7.0R NO 

270 ENTRY AT ALL. ALL SWR VALUES ENTERED WILL BE TRUNCATED TO THE LOWER 

271 SIXTEEN (16) BITS. ENTERING MORE THAN SIX DIGITS OR A CHARACTER OTHER 

272 THAN A DIGIT RESULTS IN A "?" OUTPUT ON THE CONSOLE AND A REPEAT OF THE 

273 PROMPTING MESSAGE. 
274 

275 CARRIAGE RETURN (CR): ENTERS THE NEW SWR VALUE. IF NO DIGITS HAVE 

276 BEEN ENTERED. THE SWR VALUE REMAINS UNCHANGED. 

277 
278 

279 5.2.2 CONTROL-U - 
280 

281 ERASES THE SMR VALUE BEING ENTERED. A CARRIAGE RETURN AND LINE FEED 

282 WILL BE OUTPUT AT THE CONSOLE. THE CORRECT SUR VALUE MAY THEN BE 

283 ENTERED. 
284 

285 

286 5.2.3 CONTROL-H - 

287 

288 PRINTS THE HELP FILE ON THE CONSOLE TERMINAL. THE FOLLOWING INFORMATION 

289 IS DISPLAYED: 
29C 
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292 




293 


CZLCP 


294 


OPERA 


295 




296 




297 




298 




299 




300 




301 




302 




303 




304 




305 




306 




307 




308 




309 




310 




311 




312 




313 




314 




315 




316 




317 




318 




319 




320 




321 




322 




323 




324 




325 




326 




327 


BITO 


328 




329 


BITl 


330 




331 


BIT2 


332 




333 


BIT12 


334 




335 




336 




337 


BIT13 


338 




339 


BIT14 


340 




341 


BIT15= 


342 




343 





HELP SWITCH REGISTER BIT DEFINITION 

(NOTE: <CTRL>G - ALLOWS CHANGE TO "SOFTWARE" SWITCH REG) 
5. 14. 13, 12. ..2. 1, 0 

III II I--LOOP ON SLU TEST 1 

III I I LOOP ON PRINTER "SELF" TEST 

III I LOOP ON PRINTER DISPLAY TEST 

I I I PAUSE ON ERROR. PAUSE AT END OF PASS 

I I INHIBIT ERROR REPORTS 

I INHIBIT TEST ERROR AND END OF PASS REPORTS 

LOOP ON ERROR (OTHERWISE CONTINUE) 



ENTERING ANY CHARACTER BEFORE A CONTROL-G (G) HAS BEEN ENTERED WILL 
RESULT IN A "?" OUTPUT AT THE CONSOLE, 

NOTE 

IT IS POSSIBLE FOR THE DIAGNOSTIC TO OUTPUT MESSAGES AT THE 
CONSOLE BEFORE THE NEW SUR VALUE HAS BEEN ENTERED. SHOULD THIS 
HAPPEN, THE OPERATOR SHOULD ENTER A CONTROL -U (U) AND THEN 
ENTER THE CORRECT SUR VALUE. 

5.2.4 CONTROL-C - 

ENTRY OF A 'CONTROL-C COMBINATION ABORTS TESTING AND RESTARTS IT AT 
LOCATION 200 (OCTAL). 

5.2.5 SWITCH REGISTER BIT DEFINITIONS - 



CONTINUE OR PROCEED BY ENTERINNG THOSE COMMANDS. THE DEFAULT EXECUTION 
IS TO CONTINUE AFTER AN ERROR OR AN EOP INDICATION IS ENCOUTERED. 



EXECUTE TESTS CONTINUOUSLY. 
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345 

346 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 

347 DEFAULT SECTION TEST DESCRIPTIONS 
348 

349 6.0 TEST DESCRIPTIONS 

350 

351 6.1 TEST 1: SERIAL LINE TEST 

352 

353 THIS TEST IS DESIGNED TO SHOU THE OPERATOR THAT THE SERIAL LINE SETUP 

354 HAS BEEN COMPLETED CORRECTLY. THIS WILL UNCOVER MOST SETUP ERRORS. 

355 INCLUDING BASIC SERIAL LINE SETUP ERRORS. 
356 

357 FAILURE OF THIS TEST USUALLY SIGNIFIES THAT THE DIAGNOSTIC IS WORKING 

358 WITH INCORRECT INFORMATION, FOR INSTANCE, THE CSR ADDRESS SPECIFIED 

359 MAY BE WRONG. IF ALL OF THE PROGRAM INFORMATION WAS CORRECT. TEST 

360 FAILURE INDICATES THAT THE SERIAL LINE DEVICE FAILED. 
361 

362 THE TEST SEQUENCE OPERATES IN MAINTENANCE MODE. WITH THE LOOPBACK 

363 FEATURE SET. ERROR NUMBERS 2 AND 3. LISTED BELOW, DEFINE ERRORS 

364 ENCOUNTERED WHILE ATTEMPTING TO FLOAT A ONE THROUGH A FIELD OF ZEROS. 

365 ERROR NUMBERS 5 AND 6 WILL BE DISPLAYED IF AN ERROR IS ENCOUNTERED 

366 WHILE FLOATING A ZERO THROUGH THE ONES FIELD. SERIAL Llf« LOOPBACK 

367 FAILURE. ERRORS 4 AND 7. WILL BE DISPLAYED IF THE BYTE RETURNED BY 

368 LOOPBACK DOES NOT COMPARE WITH EXPECTED DATA. 
369 

370 ASSUMPTIONS: 
371 

372 FUNCTIONAL COMMUNICATION INTERFACE 

373 

374 TEST STEPS: 

375 

376 1- CHECK TOR SLU ADDRESS VALIDITY 

377 2. TEST THE SLU IN 'LOOPBACK' MAINTENANCE MODE 

378 IP PRESENCE DETETED APPROPRIATELY: 

379 A. PERFORM REGISTER TEST - FLOATING ONE BIT 

380 IN ZEROS FIELD 

381 B. PERFORM REGISTER TEST - FLOATING ZERO BIT 
362 IN ONES FIELD 

383 3. INTERROGATE DEVICE - VERIFY PRESENCE AND DEVICE TYPE 

384 

385 ERRORS : 

386 1. SERIAL LINE NOT AT THIS ADDRESS 

387 ERROR NUMBER 0001 
388 

389 2. TIMEOUT WAITING FOR OUTPUT DONE 

390 ERROR NUMBER 0002 
391 

392 3. TIMEOUT WAITING FOR INPUT RESPONSE 

393 ERROR NUMBER 0003 
394 

395 4. SERIAL LINE LOOPBACK' FAILED 

396 ERROR NUMBER 0004 
397 
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399 

400 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 

401 DEFAULT SECTION TEST DESCRIPTIONS 
402 

403 

404 5. TIMEOUT WAITING FOR OUTPUT DONE 

405 ERROR NUMBER 0005 
406 

407 6. TIMEOUT WAITING FOR INPUT RESPONSE 

408 ERROR NUMBER 0006 
409 

410 7. SERIAL LINE 'LOOPBACK' FAILED 

411 ERROR NUMBER 0007 
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415 DEFAULT SECTION TEST DESCRIPTIONS 
416 

417 

418 6.2 TEST 2: COLOR PRINTER SELF TEST 

419 

420 

421 THIS TEST SEQUENCE EXECUTES THE COLOR PRINTER SELF TEST AND MONITORS 

422 ITS EXECUTION. IF AN UNEXPECTED STATUS RESPONSE IS ENCOUNTERED. IT IS 

423 REPORTED AS AN ERROR. ADDITIONALLY, TIMEOUT ERRORS. ERROR NUMBER 1 AND 

424 3, WILL OCCUR IF THE PRINTER MICROCODE DOES NOT RESPOND WITHIN THE 

425 ALLOTTED TIME PERIOD. 
426 

427 ASSUMPTIONS: 
428 

429 FUNCTIONAL COMMUNICATION INTERFACE 

430 

431 TEST STEPS: 

432 

433 1. INITIATE SELF TEST EXECUTION ( TRANSMIT ESCAPE SEQUENCE) 

434 2. READ COLOR PRINTER STATUS 

435 3. IF ERROR PRINT MESSAGE ELSE END OF TEST 
436 

437 ERRORS: 
438 

439 1. TIMEOUT WAITING FOR INPUT RESPONSE 

440 ERROR NUMBER 0010 
441 

442 2. UNEXPECTED RESPONSE TO 'POUER-UP' SELF TEST 

443 ERROR NUMBER OCll 

444 VERI 

445 CPU BAD 

446 000123 156743 023012 203457 143203 156427 012763 003450 
447 

448 3, TIMEOUT WAITING FOR INPUT RESPONSE 

449 ERROR NUMBER 0012 
450 

451 

452 NOTE 

453 

454 

455 THE LAST TWO LINES OF THE POUER-UP DIAGNOSTIC FAILURE MESSAGE 

456 (ITEM #2. ERROR #0011. ABOVE). WILL VARY ACCORDING TO ^"^ VALUE 

457 RETURNED BY THE LCPOl. IN ALL INSTANCES A COMPONENT .CATION 

458 ("CPU BAD") AND A PORTION OF THE "VERIFIED" MESSAx,' JILL BE 

459 DISPLAYED. ALONG WITH A REGISTER DUMP. 
460 

461 
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463 

464 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUnENT 

465 DEFAULT SECTION TEST DESCRIPTIONS 
466 

467 

468 6.3 TEST 3: PRINTER DISPLAY TEST 

469 

470 

471 THIS TEST IS DESIGNED TO PRINT A "CANNED" DISPLAY FILE. THIS FILE IS 

472 PRINTED WHEN THE DIAGNOSTIC SENDS A SPECIAL ESCAPE SEQUENCE TO THE 

473 LCPOl'S CONTROLLER ("ESC", "t". "6". ";". "2". AND "Y"). THIS DISPLAY 

474 HAS BEEN TESTED AND WILL WORK UNuESS THERE IS A SOFTWARE SETUP ERROR OR 

475 A HARDWARE FAILURE. THE TEST PRINTS OUT A RADIANT DISPLAY. 
476 

477 TEST THREE IS ONLY EXECUTED ON THE FIRST TEST PASS. IF SUBSEQUENT TEST 

478 PASSES ARE SPECIFIED, IT IS NOT EXECUTED. SETTING BIT #2 IN THE 

479 SOFTWARE OR HARDWARE SWITCH REGISTER WILL CAUSE EXECUTION TO LOOP 

480 CONTINUOUSLY ON THIS TEST. 
481 

482 ASSUMPTIONS: 
483 

484 FUNCTIONAL COMMUNICATION INTERFACE 

485 WORKING LCPOl SOFTWARE DRIVER 

486 WORKING LCPOl PRINTER 
487 

488 TEST STEPS: 

489 

490 1. SEND ESCAPE SEQUENCE TO PRINTER TO REQUEST PRINT 

491 

492 ERRORS: 

493 NO DISTINCT ERROR MESSAGES ARE REQUIRED BY THIS TEST. THE OPERATOR IS 

494 ASKED TO VERIFY THE INTEGRITY OF THE PRINTOUT. 
495 

496 

497 NOTE 

498 

499 

500 THE DIAGNOSTIC DOES NOT WAIT FOR PRINT COMPLETION BEFORE 

501 CONTINUING. THE PRINT PROCESS TAKES ABOUT TWO MINUTES. 
502 

503 
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507 END OF DOCUMENT 
508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 END OF DOCUMENT 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 85-016 



CZLCPA COLOR 



PRINTER DIAGNOSTIC 



549 




550 




551 




552 




559 




560 




561 




562 




563 




564 




565 




566 




567 




568 




569 




570 




571 




572 




573 


000000 


574 


000001 


575 


000002 


576 


000003 


577 


000004 


578 


000005 


579 


000006 


580 


000007 


581 


000006 


582 


000007 


583 




584 


100000 


585 


040000 


586 


020000 


587 


010000 


588 


004000 


589 


002000 


590 


001000 


591 


000400 


592 


000200 


593 


000100 


594 


000040 


595 


000020 


596 


000010 


597 


000004 


598 


000002 


599 


000001 


600 




601 


000036 


602 


000037 
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.LIST SEQ.BIN.LOC 

! TITLE CZLCPA COLOR PRINTER DIAGNOSTIC 
8(DECSPEC-ll-BDFAD-A-0) 

! CZLCP-A-0 

! CZLCPA COLOR PRINTER DIAGNOSTIC 

! UNIT IS TEX 

ICOPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORP.. MAYNARD. MASS. 
f 

RO-itO 
Rl-Kl 
R2-i<2 
R3-K3 
R4-it4 
RS-KS 
R6-it6 
R7-ii7 
SP-R6 
PC-R7 

BIT15 -100000 

BIT14 -40000 

BIT13 -20000 

BIT12 -10000 

BITll -4000 

BITIO -2000 

BIT9 -1000 

BIT8 -400 

BIT7 -200 

BIT6 -100 

BITS -40 

BIT4 -20 

BIT3 «10 

BIT2 -4 

BITl -2 

BITO -1 

SL'36 J START VFU LOAD 

EL -37 tENO VFU LOAD 
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D2 



SEO 0016 



604 




! ; !*** 


.PSECT ABS 


605 000000 






.ENABLE AMA 


606 






.DSABLE GBL 


607 








608 000000 




BEGIN: 




609 


000000 




.-.♦0 


610 








611 








612 








613 


000030 




. -BEGIN*30 


614 








615 000030 


004332 




TYP 


616 000032 


000340 




340 


617 








616 








619 


000042 




. -6EGIN*42 


620 








621 000042 


000000 




0 


622 








623 


000046 




.-BEGIN«46 


624 




• 


LOGICAL 


625 


000052 




. -6EGIN*52 


626 000052 


040000 




BIT 14 


627 








628 








629 


000060 




.-6EGIN*60 


630 000060 


004754 




TKINT 


631 000062 


000300 




300 


632 








633 








634 


000100 




.-BEGIN* 100 


635 








636 






LKSRV 


637 000100 


000340 




340 


638 








639 




f 


CONVRT 


640 000102 


000340 




340 


641 








642 


000174 




.-BEGIN* 174 


643 000174 


000000 




OISPREG: 0 


644 000176 


000000 




SUREG: 0 



{KEYBOARD INTERRUPT ROUTINE 



sLINE CLOCK SERVICE ROUTINE 



I 
I 



I 
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O AOaHCTCDC 












b'*b 




.SBTTL 


PARAMETERS 




1 










• 












i BEGINNING OF 


PROGRAM- 








i 














START: : 






D3<f 






. -BEGIN 


»200 




AST 




t 








03h 




t 


THE FOLLOWING INSTRUCTION "MOV #1000, lt6" IS OVER LAID BY THE LPll 






t 


INTERRUPT TESTS. DON'T CHANGE IT WITH 


OUT BEING AUARE OF THE 


ASA 




s 


PROBLEMS THAT MAY OCCUR. 












01P706 OOlOOO 




MOV 


«1000,K6 




659 










10* : 


JMP 


SETUP 




AA1 
ODX 


















. -BEGIN 


*300 




AA^ OOO'^QO 


000137 OOl AAA 




JMP 


TESTl 




AAA 












AAS 


on 1 noo 




. -BEGIN 


*1000 




AAA 
ODD 












AA7 




:LINE PRINTER HARDWARE REGISTERS 




AAA 












AAQ nmonn 


1 77S1 A 
X f f JXf 


LPS: 


177514 


s STATUS REGISTER 












;BIT 15-ERROR 




A71 

O ' J. 








sBIT 7-READY 




A75 








:BIT 6-INTERRUPT ENABLE 


A7T 












A7A nnmnp 


X ' f JX V 


LPB: 


177516 


J DATA BUFFER REGISTER 




A7S 








;BITS 0-6-7 BIT ASCII 


CHARACTER BUFFER 


A7A 








(BITS 7-15-NOT USED 




A77 

Of/ 












A7R nmooA 


177570 


SUR: 


177570 






A7Q OniOflli 
O f 7 wxwo 


177570 


DISPLAY 


: 177570 








177776 


PSU: 


177776 








177570 


HUSUR: 


177570 






AA9 omf>id 


1 77566 


TPS: 


177566 






AAT ooim<> 


177562 


TKB: 


177562 






AAA nmo?o 


1775ft4 

X ' * 


TPS: 


177564 






AAS 1 


1 77SAO 


TKS: 


177560 






AAA nm n3A 




CSBR: 


172542 






AA7 nm nsA 

DO ' UUXUcO 




PLKS: 


172540 






AAA Oni KKCi 




LKS: 


177546 






AAQ 












AOn AAIA'O 




OLCSRC: 


.WORD 


176500 sDL'S DEFAULT 


CSR 


AQ1 ftOIO^A 

O'X Vw^VJt 




DLCSR: 


.WORD 


176500 ;DL'S DEFAULT 


CSR 




1 i«oi oo 


DZCSR: 


.WORD 


160100 iOZ'S DEFAULT 


CSR 




1 60 1 00 

XOVX w 


DZCSRC: 


.WORD 


160100 sDZ'S DEFAULT 


CSR 


AOA 001 OA? 


000 soo 


DLVEC: 


.WORD 


300 .DL'S DEFAULT 


VECTOR ADDRESS 


001044 


A00500 


OZVEC : 


.WORD 


300 ;DZ'S DEFAULT 


VECTOR ADDRESS 


696 001046 


000200 


PTRC: 


.WORD 


200 8 LP'S DEFAULT 


VECTOR ADDRESS 


697 001050 


000200 


PTRVEC: 


.WORD 


200 




698 001052 


000202 


PTRPSW: 


.WORD 


202 




699 


000240 


NOP 


-240 






700 


000001 


N 


-1 






701 


000002 


M 


»2 






702 


000001 


U 


»1 







I 

I 
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F2 



MATDAC 








1 UH 


.SBTTL 


MACROS 








7ft#% 


t 






7ft7 


\ " ~ 


MACROS 




7nA 


s 










i MACRO 


FOR SETTING UP ERROR COUNT 










71 1 




5 TERROR • CALL 


71P 
« xc 






X = ERROR NUMBER 


71 

( X J 






Y - LOOP ADDRESS IF SUR BIT SET 


714 

» X** 




•LIST ME 


715 

' X J 








716 




. MACRO 


$ ERROR X.Y 


717 


ERR ' X ' : 


MOV 


#X, ERCOUNT sSET UP ERROR COUNT X 


718 


NLIST ' 


ME 




719 




N'Ni^l 




■ cv 


.NLIST 






731 

' cx 


.LIST 


ME 




7PP 


.LIST 






r c ^ 




JSR 


K5,STAER : REPORT ERROR SET 




•NLIST 


ME 




725 




.IF 


NB Y 


726 


.NLIST 






727 


.LIST 


ME 




728 


• LIST 






729 








730 




$TSURG 


«100000 iCK SU REG 


731 




BEQ 


CN'X' J CONTINUE IF BIT 15 - 0 


732 




JMP 


Y ;OTHERUISE LOOP 


733 CN'X': 






734 


.NLIST 


ME 




735 




.ENOC 




736 


.NLIST 






737 


.LIST 


ME 




738 


.LIST 






739 




• ENOM 


TERROR 


740 








741 








742 




; MACRO FOR PRINTING TEST NUMBER AT START OF TEST 


743 








744 








745 




.MACRO 


♦PRTSN Y 


746 




EMT 


♦0 s PRINT TEST NUMBER 


747 




TYO'Y' 


tTEST NUMBER MESSAGE 


748 




.ENDM 


IPRTSN 


749 








750 


i WAIT 


MACROS 




751 




Z - ERROR • (USUALLY "U") 


752 




X - ERROR JMP ADDRESS. IF NONE - DEFAULT LOOPS BACK TO UAIT 


753 




Y - LOOP ON ERROR, IF BIT 15 OF SUR SET 


754 




*T - 2ND PASS TIME CI COUNT - ABOUT 1/2 SEC). IF NONE « 100 


755 








756 




.MACRO 


♦UAITI Z.X.Y.T 


757 






;WAIT FOR INPUT. OR TIMEOUT 


758 UAIT'Z' 






759 


NLIST 


ME 




760 




.IF 


NB T 



SEQ 0018 
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SEQ 0019 



761 .NLIST 

762 .LIST ME 

763 .LIST 

764 MOV #100. WORK sLOAD CNiR 

765 CMP Ol.CYCCNT ;2ND PASS? 

766 BNE WDO'Z' iNO, LEAVE COUNT AS IS 

767 MOV T.UORK ;LOAD CNTR WITH LONG CNT 

768 .NLIST ME 

769 . ENDC 

770 .IF B T 

771 .NLIST 

772 .LIST ME 

773 .LIST 

774 MOV #100. WORK -.LOAD CNTR 

775 .NLIST ME 

776 .ENDC 

777 .NLIST 

778 .LIST ME 

779 .LIST 

780 UDD'Z':MOV #-l,WORKA j LOAD COUNT 

781 DEC WORK jBUMP CNTR 

782 BEQ UER'Z' ; ERROR IF TIMEOUT 

783 WDE'Z': DEC WORKA :BUMP COUNT 

784 BEQ WDD'Z' jLOOP IF COUNT 0 

785 TSTB aOLLPS jCK STATUS 

786 BPL WDE'Z' .-LOOP TIL DONE 

787 BR WEX'Z' ; CONTINUE 

788 WER'Z': *TSWRG #20000 ;CK SW REG 

789 -.TEST FOR INHIBIT ERROR MSG 

790 BNE .*b {BRANCH IF NO MSG WANTED 
791 

792 EMT *0 

793 ETIM } TIMED OUT ERROR 

794 .NLIST ME 

795 .IF NB Y 

796 .NLIST 

797 .LIST ME 

798 .LIST 
799 

800 TERROR \N,Y 

801 .NLIST ME 

802 .ENDC 

803 .IF B Y 

804 .NLIST 

805 .LIST ME 

806 .LIST 
807 

808 I ERROR \N 

809 .NLIST ME 

810 .ENDC 

811 .IF B X 

812 .NLIST 

813 .LIST ME 

814 .LIST 
815 

816 BR WAIT'Z' ;LOOP 

817 .NLIST ME 
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H2 
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SEQ 0020 



818 .ENOC 

819 .IF NB X 

820 .NLIST 

821 .LIST ME 

822 .LIST 
823 

824 JMP X J EXIT 

825 .NLIST ME 

826 . ENOC 

827 .NLIST 

828 .LIST ME 

829 .LIST 
830 

831 WEX'Z': 

832 .NLIST ME 

833 U-U*l 

834 .NLIST 

835 .LIST ME 

836 .LIST 

837 .ENDM «UAITI 
838 

839 

840 ; MACRO FOR WAITING FOR OUPUT. DONE 

841 

842 

843 .MACRO *UAITO Z.X.Y 

844 sWAIT FOR OUPUT. OR TIMEOUT 

845 WAIT'Z': MOV #20. TIME :10 SEC CNTR 

846 UDD'Z': MOV «-l. TIMER ; LOAD COUNT 

847 DEC TIME jBUMP CNTR 

848 8EQ UER'Z' .-ERROR IF TIMEOUT 

849 UDE'Z': DEC TIMER s BUMP COUNT 

850 BEQ UDD'Z' :LOOP IF COUNT 0 

851 TSTB SLPS ;CK STATUS 

852 BPL UOE'Z' jLOOP TIL DONE 

853 BR UEX'Z' -.CONTINUE 

854 WER'Z': »TSURG #20000 :CK SW REG 

855 iTEST FOR INHIBIT ERROR MSG 

856 BNE .*6 ; BRANCH IF NO MSG UANTED 

857 EMT ♦O 

858 ETIMO J TIMED OUT ERROR 

859 .NLIST ME 

860 .IF NB Y 

861 .NLIST 

862 .LIST ME 

863 .LIST 
864 

865 (ERROR \N.Y 

866 .NLIST ME 

867 .ENDC 

868 .IF B Y 

869 .NLIST 

870 .LIST ME 

871 .LIST 
872 

873 (ERROR \N 

874 .NLIST ME 



12 
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875 .ENDC 

876 ,IF B X 

877 .NLIST 

878 .LIST ME 

879 .LIST 
880 

881 BR WAIT'Z' jLOOP 

882 .NLIST ME 

883 .ENDC 

884 .IF NB X 

885 .NLIST 

886 .LIST ME 

887 .LIST 
888 

889 JMP X sEXIT 

890 .NLIST ME 

891 .ENDC 

892 .NLIST 

893 .LIST ME 

894 .LIST 
895 

896 UEX'Z': 

897 .NLIST ME 

898 U-U*l 

899 .NLIST 

900 .LIST ME 

901 .LIST 

902 .ENDM lUAITO 
903 

904 s 

905 .-MACRO FOR ENABLING KEYBOARD INTERUPT 

906 : 

907 .MACRO ♦ENABLE 

908 .NLIST ME 

909 :::SSa CMP <H76.SUR ;S/W SUR ? 

910 :::9Sa BNE . ♦lO s NO- CONTINUE 

911 .NLIST 

912 .LIST ME 

913 .LIST 

914 BIS #100,8TKS s ENABLE KEYBOARD INTERRUPT 

915 MOV -(SP).-(SP) 

916 MOV «0,2(SP) 

917 MOV *.*6.(SP) 

918 RTI 

919 .ENDM lENABLE 
920 

921 {MACRO USED TO LOAD THE PSU UITH THE 

922 s CORRECT PROCESSOR PRIORITY LEVEL 

923 s 

924 .MACRO JSETPSW 

925 MOV PC,-(SPJ I MOVE PRESENT LOCATION TO STACK 

926 ADD 06.CSP) -.SET UP FOR NEXT INSTRUCTION 

927 RTI sLOAD PSU 

928 .ENDM 4SETPSU 
929 

930 5 

931 ; MACRO USED TO PRINT MESSAGE TO LINE PRINTER 
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932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 



J2 

12-MAR-e5 15:38 



SEQ 0022 



.MACRO * PRINT V 

MOV #'V',PRTMSG 

JSR HA.PRIHE 

.ENOM * PRINT 



:LOAO MESSAGE ADDRESS 
; PRINT IT 



J MACRO TO TYPE MESSAGE ON THE TERMINAL 
G 



. MACRO 
EMT 

G 

.ENOM 



♦ TYPE 
*0 

♦TYPE 



;Call "TYP" interrupt 
; address of message 



MACRO TO TEST HARDWARE AND SOFTWARE SWITCH REGISTERS 



.MACRO 

CMP 

BEQ 

BIT 

BNE 

BIT 

.ENDM 



♦TSWRG MSK 

«176,SWR 

.♦12 

MSK.SHWSUR 
.♦10 

MSK.SWREG 



jHW SWITCH REG THERE? 

sNO. SKP HW CHECK 

;YES, CK HW REG 

sIF SET, SKP SU REG CK 

(OTHERWISE. ALSO CK SW REG 



I<2 
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VARIABLES 



957 




•SBTTL 


VARIABLES 




958 






959 




• 








960 




; MEMORY 


LOCATIONS USED AS PROGRAM FLAGS AND COUNTERS 


961 












962 001094 


AAAAAA 


SE6CNT: 


A 

0 






963 001056 


000000 


CHRCNT : 


0 






964 001060 


000000 


CHKbcN : 


0 






a£.C AAIA^O 


AAAAAA 


LINCNT : 


0 






AAf A4^4 

706 001U04 


AAAAAA 


LTCCNT : 


0 






96 / 












0£.A AA1 


AAAAAA 


A7Tf*D . 


unon 


0 


HOLDS DZ'S TCR REGISTER 


0£.0 AA 1 A'/A 


AAAAAA 


A7I OD . 

DZLrR : 


. WUKu 


0 


HOLDS DZ'S LPR REGISTER 


0'7A AAIAT^ 
0*7 1 


AAAAAA 


A*7I kJC . 


. UUKU 


0 


HOLDS DZ'S LINE « 




AAAAAA 


Al 1 DO . 

ULLrK : 


« WUKU 


0 


HOLDS DL'S BAUD RATE BITS 


07T AA1A*7£. 


AAAAAA 


IM 1 DC . 

ULLrs : 


unon 
. WUNU 


0 


DL'S RECV REG 


AA1 1 AA 


AAAAAA 


Al DDI IP . 


unon 

. WUnU 


0 


DL'S RECV BUFFER 


0*7C AA1 1 AO 


AAAAAA 


PDATP . 

dKH I c : 


unon 

. WUKU 


0 


HOLD BAUD RATE BITS 


QiK nn\ 1 AA 


AAAAAA 


Al OATr . 


. WUKU 


0 


(DL) HOLD BAUD RATE BITS 


0*77 AAl 1 Ai« 


AAAAAa*! 




unon 

. WUnU 


0 


; SHOWS OLll PRESENCE 


9 /O 












Q70 AAl 1 1 A 


AAAAAA 




unon 


0 ; ADDRESS OF OZ OTR REGISTER 


OA A AAl 1 1 O 
9DU UUlllc 


AAAAAA 




unon 


0 


LINE TYPE 0»20MA 1=EIA 


OA 1 
90 1 












OAD AAl 1 1 A 


AAAAAA 


Al TYPF • 


unon 


0 


DL TYPE O'ALL OTHERS I'E/F 




AAAAAA 




unon 


0 


DZ'S RECEIVER BUFFER ADDRESS 


OA A AAl 1 on 

90H UUllcU 


AAAAAA 




unon 


0 


HOLDS DZ'S CSR ADDRESS 


OBc; AAl 1 
9oj UV/llcc 


AAAAAA 


HATNTR • 


unon 


0 


MAINTENANCE BIT, IF NOT 0 


900 












aA7 AAl 1 


AAAAAA 




A 

v 






QAA AAl 1 OA 
900 UVi.lcD 


AAAAAA 




0 






OAO AAt 1 TA 
909 Uw^lOU 


AAAAAA 




A 
w 






OOA AAl 1 XO 


AAAAAA 




w 






991 U01104 


AAAAAA 




A 
w 






003 AAl 1 
79c UUli.30 


AAAAAA 




•n 






OOY AAl 1 AA 
993 V/UXl^v 


AAAAAA 




0 






OOA AAl 1 AO 
99* UVIA^C 


AAAAAA 




0 






AAC AAl tAA 
99 J OwJ. 1** 


AAAAAA 


LEGCHR* 


0 






OOC AA 1 1 AH 

996 Uvlil*0 


AAAAAA 


NUnCHR; 


0 






QQ7 001 1 

77' V/V/X^Jv 


AAAAAA 
www 


OFFSET: 


0 






998 001152 


000000 


DIGITS: 


0 






999 001154 


000000 


SIGNAL : 


0 






1000 001156 


000000 


SET: 


0 






1001 001160 


000000 


CHAR: 


0 






1002 001162 


000000 


OCT: 


0 






1003 001164 


000000 


PASSA: 


0 






1004 001166 




BUFF: 


.BLKB 


80. 





L2 
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1006 
1007 
1008 
1009 
1010 
1011 

101 a 001306 

1013 001312 

1014 001316 

1015 001322 

1016 001324 

1017 001330 

1018 001334 

1019 001342 

1020 001346 

1021 001350 

1022 001350 

1023 001356 

1024 001364 

1025 001366 

1026 001372 

1027 001376 
001376 
001404 
001406 
001414 
001420 

1028 001422 

1029 001426 

1030 001430 

1031 001436 

1032 001440 

1033 001442 

1034 001444 

1035 001446 

1036 0014S0 

1037 001452 
1036 001456 

1039 001460 

1040 001462 
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SEO 0024 



.SBTTL SETUP SERIAL LINE PARAMETERS 

***<•« ************** *«>«***«r*4r**«**«r4r*«*«*4r*4i*4r *****«t4r*4r*«*4i4r4r***«r* 

ROUTINE TO TEST THE MECH. OPERATION OF THE LXY11/21-LXV11 



004437 


004314 




SETUP: 


JSR 


#4,TtPINT 


J PRESET POINTERS 


005037 


001064 






CLR 


CtCCNT 


; CLEAR PASS COUNT 


005037 


001154 






CLR 


SIGNAL 


{CTRL G FLAG 


000005 








RESET 




oi pun 1 md n 

; CLEAR UONLP 


013746 


000004 






nOV 


4, -tSPJ 


;SAvE CURRENT vECTONS 


013746 


000006 






nuv 


6, -ISPJ 


S 


015757 


001350 


000004 




HOV 


•1> ,4 


i5cT UP TintOUT VECTOR 


005777 


177444 






Y e T 

TST 


SHWSUH 


TAW TA A^^CTC^ LJAAAIIADP PI lA 

;TRt to ACCESS HAKDUARE SUR 


000407 








BH 


2* 


. TC TUFOC ^A TA 14 

ilr THERE, bO TO 2* 


012737 


000176 


AA \ f\nA 

001004 


1* : 


nov 


ACIJOC^ CUD 

VoWNcu > 9WK 


.OATUT Til CACTI lAOf CUD 

;PUINT TO SUrTWHRE SUR 


012757 


000174 


AA1 AA£ 

001006 




nuv 


AATCODCP ATCOI AV 

vOlsrKtu , OlSfLAT 


. DATkIT TA CACTIJAOC ATCOl AV 


022626 








/•MO 

CHr 


/ cn ^ . f CO > ^ 
vSr ,K5r}* 


.OfCTADP CTA^i/ 

; RESTORE STACK 


012O37 


OOOOOO 




2* : 


nuv 


f CO ^ * iL 


■ DCCTADC TTMCrtUT ViCTTADC 
SKbSlUNt lincUUI VELIUNs 


012637 


AAAAA^ 

000004 






MOV 


ISr J* ,4 


9 










f CPInDLC 






032777 


AAAf AA 

OwOlOO 


1 f 741o 




DTC 


A1AA OTVC 
VIUO f « 1 Ko 


itNnDLE KETDOnND INTERRUPT 










nuv 


/ CD S f CO ^ 




Vie too 


AAAAAA 


AAAAnS 




MOW 

nuv 


«A 3f CP ^ 
w\l , e\ Sr J 




vie lib 


AA1 






nuv 


•.♦Oil ar } 












RTI 






005737 


001164 






TST 


PASSA 




001011 








BNE 


Zi 


:SKP 


112737 


000001 


001164 




novB 


•1. PASSA 




104000 








EMT 


*0 




006153 








MESl 




sTYPE DIAGNOSTIC TITLE 


104000 








EHT 


*0 




006167 








nES2 




iTYPE NAME 


104000 








EMT 


*0 




006230 








MESS 






004737 


010234 




31: 


JSR 


K7.SETSER 


.•CHECK FOR SERIAL LINE SELECTION 


000005 








RESET 




.•REQUIRED INSURANCE 


104000 








EMT 


*0 




006246 








MES4 




sTYPE RESTART ADDRESS INFO 



M2 
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SEQ 0025 



1042 

1043 

1044 

1045 

1046 

1047 

1040 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 



1068 
1069 



1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 



1062 
1063 
1064 
1085 



SBTTL 

SBTTL TEST ff DESCRIPTION 

SBTTL 

SBTTL TEST 1 SERIAL LINE UNIT TEST 

T«ftt 1 Serial Lin« Unit test 

Test 1-A 

- Insure SLU is there, at correct address. 
Test 1-B 

If Loopback feature (ecHo) is present. Test the SLU: 

a - with floating one bit field 
b - with floating zero bit field 

CHECK FOR PRINTER (SLU) ON BUS 













.ENABL 


LSB 




001464 


052777 


000100 


177330 


TESTl: 


BIS 


0100, 9TKS 


; ENABLE KEYBOARD 


001472 










ITSWRG 


MOOOO 


,CK SU REG 


001472 


022737 


000176 


001004 




CMP 


»176,SUR 


iHU SUITCH REG THERE? 


001500 


001404 








BEQ 


.♦12 


NO. SKP HU CHECK 


001502 


032777 


040000 


177302 




BIT 


MOOOO. aHUSUR 


(YES. CK HU REG 


001510 


001003 








BNE 


.*10 {IF SET. SKP SU REG CK 


001512 


032737 


040000 


000176 




BIT 


MOOOO. SUREG 


iOTHERUISE. ALSO CK SU REG 


001520 


001002 








BNE 


1« 


ilF SET. SKIP TST 0 HOR MSG 


001522 










tPRTSN 


1 




001522 


104000 








EMT 


*0 


{PRINT TEST NUMBER 


001524 


005571 








TYOl 




{TEST NUMBER MESSAGE 


001526 


013746 


000004 




1«: 


HOV 


BM.-CSP) 


.SAVE VECTORS 


001532 


013746 


000006 






HOV 


9«6.-(SP) 


iSAVE 


001536 


012737 


001552 


000004 




HOV 


«2t.4 


.RELOAD VECTOR 


001544 


105777 


177230 






TSTB 


aLPS 


IS PRINTER THERE? 


001550 


000447 








BR 


4» J YES. SKIP TRAP PROCESSING 


001552 








2$: 






[IF YES. NEVER GET HERE. 


001552 


022626 








CMP 


(SP)..(SP)« 


RESTORE STACK 


001554 


012637 


000006 






MOV 


(SP)».6 


RESTORE VECTORS 


001560 


012637 


000004 






MOV 


CSP)».4 


RESTORE 


001564 










«TSURG 


020000 


CK SU REG 


001564 


022737 


000176 


001004 




CMP 


»176,SUR 


HU SUITCH REG THERE? 


001572 


001404 








BEQ 


.♦12 


NO. SKP HU CHECK 


001574 


032777 


020000 


177210 




BIT 


020000. aHUSUR (YES. CK HU REG 


001602 


001003 








BNE 


.♦10 J IF SET. SKP SU REG CK 


001604 


032737 


020000 


000176 




BIT 


#20000. SUREG sOTHERUISE. ALSO CK SU REG 


001612 


001002 








BNE 


.♦6 J IF INHIBIT ERR MSG 


001614 


104000 








EMT 


♦ 0 




001616 


006704 








ERMSl 




SLU NOT THERE 


001620 










lERROR 


\H.li {NOTHING THERE 


001620 


012737 


000001 


001136 


ERRl: 


MOV 


«1 . ERCOUNT 


{SET UP ERROR COUNT 1 



1056 
1087 
1088 
1089 
1090 
1091 
1092 



001632 
001632 
001640 
001642 
001650 
001652 
001660 
001662 
001666 



001670 
001674 



022737 
001404 
032777 
001003 
032737 
001402 
000137 



001666 000607 



012637 
012637 



000176 
100000 
100000 
001526 



000006 
000004 



N2 
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001626 004537 004606 
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001004 
177142 
000176 



CNl 



JSR it5,STAER 

IT SURG « 100000 

CMP #176.SUR 

BEQ .•12 

BIT riOOOOO.SHWSUR 

6NE .'lO 

BIT «100000,SUREG 

BEG CNl 

JMP 1* 



BR SETUP 



YES. SLU IS HERE 



41 



MOV 
MOV 



(SP)..6 
(SP)»,4 



: REPORT ERROR SET 



iCK SU REG 

iHU SWITCH REG THERE? 

{NO. SKP HU CHECK 

I YES. CK HU REG 

;IF SET. SKP SU REG CK 

iOTHERUISE. ALSO CK SU REG 
i CONTINUE IF BIT 15 
sOTHERUISE LOOP 



i RESTORE VECTORS 
{RESTORE 
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1094 

1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
Ills 
1116 

1117 001730 



MACRO nill3 12-nAR-85 15:36 



B3 



SEQ 0027 



Test 1-B 

; - If Loopback feature Cecho) is present. Test the SLU: 

a - Mith floating one bit field 
b - Mith floating zero bit field 



001700 005737 001122 

001704 001002 

001706 000137 003016 



TST MAINfB 
BNE 91 
JMP 401 



: NONZERO IF LOOPBACK FEATURE PRESENT 

sHERE. CONTINUE 

:NOT HERE. SKIP SUBTEST 



001712 053777 001122 177060 
001720 012700 000001 
001724 010037 001134 



001730 
001736 
001744 
001750 
001752 
001756 
001760 
001764 
001766 
001770 
001770 
001776 
002000 
002006 
002010 



012737 
012737 
005337 
001407 
005337 
001767 
105777 
100372 
000442 

022737 
001404 
032777 
001003 
032737 



000020 001130 
177777 001132 
001130 

001132 

177014 



000176 001004 
020000 177004 
020000 000176 



9«: 

10«: 

121: 



UOOl: 



UDEl: 



UERl: 



002016 001002 

002020 104000 

002022 006007 

002024 

002024 012737 000002 001136 ERR2: 

002032 004537 004606 

002036 

002036 022737 000176 001004 

002044 001404 

002046 032777 100000 176736 

002054 001003 

002056 032737 100000 000176 

002064 001402 

002066 000137 001712 



1 es V X 


-B-a 








BIT THRU ALL ZERO 


BYTE 




BIS 


MAINTB.SLPS 


sSET MAINTENANCE (LOOPBACK) 


MOV 


«1.R0 


iSET BIT 


#0 


Mnv 


RO.SAVE 


;SAVE IT 




tUAITO 


\W,.9* 








jUAIT FOR OUPUT. OR TIMEOUT 


MOV 


#20. TIME 




.10 SEC CNTR 


MOV 


#-1, TIMER 




LOAD COUNT 


DEC 


TIME 




;BUMP CNTR 


BEQ 


UERl 




ERROR IF TIMEOUT 


DEC 


TIMER 




BUMP COUNT 


BEQ 


UOOl 




LOOP IF COUNT 0 


TSTB 


SLPS 




CK STATUS 


BPL 


UOEl 




LOOP TIL DONE 


BR 


l^Xl 




CONTINUE 


ITSURG 


«20000 


;CK SU REG 


CMP 


«176.SUR 


iHU SUITCH REG THERE? 


BEQ 


.*12 


•NO. SKP 


HU CHECK 


BIT 


#20000. 9HUSUR 


YES. CK 


HU REG 


BNE 


.♦10 


IF SET. 


SKP SU REG CK 


BIT 


#20000. SUREG 


OTHERUISE. ALSO CK SU REG 






TEST FOR INHIBIT ERROR MSG 


BNE 


.*6 


BRANCH IF NO MSG UANTED 


EMT 


•0 






ETIMO 




i TIMED OUT ERROR 


1 ERROR 


\N,91 






MOV 


#2. ERCOUNT 


iSET UP ERROR COUNT 


JSR 


K5.STAER 


1 REPORT ERROR SET 



«TSURG #100000 

CMP #176. SUR 

BEQ . •12 

BIT #100000. 9HUSUR 

BNE .*iO 

BIT #100000. SUREG 

BEQ CN2 

JMP 9i 



tCK SU REG 

iHU SUITCH REG THERE? 
NO. SKP HU CHECK 
YES, CK HU REG 
IF SET. SKP SU REG CK 
i OTHERUISE. ALSO CK SU REG 
{CONTINUE IF BIT IS 
J OTHERUISE LOOP 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO mil3 
TEST 1 SERIAL LINE UNIT TEST 



002072 



CN2: 



002072 000716 



002074 

1118 002074 110077 176702 
1119 

1120 002100 



uexi; 



14* : 





002100 










002100 


012737 


000100 


001124 




002106 


012737 


177777 


001126 




002114 


005337 


001124 






002120 


001407 








002122 


005337 


001126 






002126 


001767 








002130 


105777 


176742 






002134 


100372 








002136 


000442 








002140 










002140 


022737 


000176 


001004 




002146 


001404 








002150 


032777 


020000 


176634 




002156 


001003 








002160 


032737 


020000 


000176 




002166 


001002 








002170 


104000 








002172 


005731 








002174 










002174 


012737 


000003 


AA1 1 9£ 

001136 




002202 


004537 


004606 






002206 










002206 


022737 


000176 


001004 




002214 


001404 








002216 


032777 


100000 


176566 




002224 


001003 








002226 


032737 


100000 


AAA 4 

000176 




002254 


AA 1 il A ^ 








002236 


000137 


001712 






002242 










002242 


000716 








002244 








1121 










1122 


002244 


117701 


176630 




1123 


002250 


120001 






1124 


002252 


001431 






1125 










1126 


002254 


104000 






1127 


002256 


006756 






1128 


002260 










002260 


012737 


000004 


001136 



UAIT2 



U0E2: 



UER2: 



CN3: 



UEX2: 



C3 

12-MAR-85 15:38 



SEQ 0028 



BR UAITl 



HOVB 


RO.aLPB 


«UAITI 


\U.,9« 


MOV 


«100.U0RK 


MOV 


«'1.U0RK/^ 


DEC 


UORK 




UER? 


DEC 


UORKA 


BED 


UDDP 


TSTB 


SOLLPS 


BPL 


UDE2 


BR 


UEXP 


tTSURG 


«20000 


CMP 


«176.SUR 


BEQ 


.♦12 


BIT 


020000 SHUSUR 


BNE 


.♦10 


BIT 


«20000.SUREG 


BNE 


. ♦& 


EMT 


♦ 0 


ETIM 




lERROR 


\N.9» 


MOV 


«Z, ERCOUNT 


JSR 


KS.STAER 


tTSURG 


0100000 


CMP 


0176. SUR 


BEQ 


.♦12 


BIT 


0100000 , SHUSUR 


BNE 


. -lO 


BIT 


0100000. SUREG 


BEQ 


CN3 


JMP 


9< 


oR 




MOVB 


aOLRBUF.Rl 


CMPB 


RO.Rl 


BEQ 


161 


EMT 


♦0 


ERMS2 




lERROR 


\N,9» 


MOV 


04. ERCOUNT 



sLOOP 



,XMIT BYTE 



iUAIT FOH: INPUT. OR TIMEOUT 

,-LOAD CNTR 

:LOAD COUNT 

sBUMP CNTR 

J ERROR IF TIMEOUT 

jBUMP COUNT 

iLOOP IF COUNT 0 

jCK STATUS 

iLOOP TIL DONE 

: CONTINUE 
:CK SU REG 

;HU SUITCH REG THERE? 

jNO. SKP HU CHECK 

sYES. CK HW REG 

J IF SET. SKP SU REG CK 

iOTHERUISE. ALSO CK SU REG 

;TEST FOR INHIBIT ERROR MSG 

i BRANCH IF NO MSG WANTED 



! TIMED OUT ERROR 



I SET UP ERROR COUNT 3 
i REPORT ERROR SET 

iCK SU REG 

jHU SUITCH REG THERE? 

;N0, SKP HU CHECK 

jYES. CK HU REG 

J IF SET, SKP SU REG CK 

iOTHERUISE. ALSO CK SU REG 

{CONTINUE IF BIT 15 = 0 

iOTHERUISE LOOP 



iLOOP 



iGET BYTE IN 

J SAME? 

tOK 



i"LOOPBACK FAILED" MSG 
tLGOPBACK FAILED 

iSET UP ERROR COUNT 4 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO MlllS 
TEST 1 SERIAL LINE UNIT TEST 

002266 004537 004606 



002272 
002272 
002300 
002302 
002310 
002312 
002320 
002322 
002326 

1129 002326 

1130 002332 
1131 



1132 
1133 
1134 
1135 
1136 
1137 
1136 
1139 
1140 
1141 
1142 
1143 



002336 
002340 
002342 
002344 
002346 



022737 
001404 
032777 
001003 
032737 
001402 
000137 

013700 
000137 

000241 
006100 
105700 
100402 
000137 



000176 001004 

100000 176502 

100000 000176 

001712 

001134 
001730 



001724 



CN4: 



16(: 



FLC 



1144 002352 


012700 


000176 




1145 002356 


142700 


000200 




1146 002362 


010037 


001134 




1147 








1148 002366 








002366 


012737 


000020 


001130 


002374 


012737 


1777 77 


001132 


002402 


005337 


001130 




002406 


001407 






002410 


005337 


001132 




002414 


001767 






002416 


105777 


176356 




002422 


100372 






002424 


000442 






002426 








002426 


022737 


000176 


001004 


002434 


001404 






002436 


032777 


020000 


176346 


002444 


001003 






002446 


032737 


020000 


000176 


002454 


001002 






002456 


104000 






002460 


006007 






002462 








002462 


012737 


000005 


001136 


002470 


004537 


004606 




002474 









20«: 



22*: 

UAIT3: 
U003: 



U0E3: 



UeR3: 



D3 

12-MAR-85 15:38 



SEQ 0029 



JSR 


*5.STAER 


: REPORT ERROR SET 


tTSURG 


«1 00000 


:CI< SU REG 


CMP 


dl76 SUR 




BEO 


. ^12 


iNO. SKP HU CHECK 


BIT 


«1 00000. SHUSUR 


lYES, Cl< HU REG 


BNF 


. +10 


I TF ^FT ^KP RFR ru 


BIT 


#100000, SUREG 


(OTHERUISE, ALSO CK SU REG 


BEQ 


CN4 


s CONTINUE IF BIT 15 


JMP 


91 


s OTHERWISE LOOP 


MOV 


SAVE.RO 


; RESTORE, RO 


JMP 


121 


J TRY AGAIN 


CLC 




: CLEAR CARRY 


ROL 


RO 


{SHIFT BIT 


TSTB 


RO 




BMI 


.♦6 




JMP 


101 


(NOT FINISHED 



T«st 1-B-b 



A ZERO THRU ALL ONES BYTE 



MOV 


«176,R0 


sSET ALL 


EXCEPT BIT #0 


BICB 


«200,R0 


jCLR BIT 


#7 


MOV 


RO.SAVE 


;SAVE IT 




♦UAITO 


\U. ,20« 










;UAIT FOR OUPUT. OR TIMEOUT 


NOV 


«20,TIHE 




ilO SEC CNTR 


nov 


#-1. TIMER 




iLOAO COUNT 


DEC 


TIME 




iBUMP CNTR 


BEQ 


UER3 




.ERROR IF TIMEOUT 


DEC 


TIMER 




•BUMP COUNT 


BEQ 


UDD3 




LOOP IF COUNT 0 


TSTB 


aLPS 




CK STATUS 


BPL 


uoe3 




LOOP TIL DONE 


BR 


UEX3 




CONTINUE 


(TSURG 


»20000 


iCK SU REG 


CMP 


«176.SUR 


:HU SUITCH REG THERE? 


BEQ 


.♦12 


J NO. SKP 


HW CHECK 


BIT 


#20000, SHUSUR 


;YES, CK 


HU REG 


BNE 


.♦10 


iIF SET. 


SKP SU REG CK 


BIT 


#20000, SUREG 


:OTHERUISE. ALSO CK SU REG 






;TEST FOR INHIBIT ERROR MSG 


BNE 


.♦6 


i BRANCH IF NO MSG WANTED 


EMT 


♦ 0 






ETIMO 




(TIMED OUT ERROR 


« ERROR 


\N.20» 






MOV 


#5, ERCOUNT 


{SET UP ERROR COUNT 


JSR 


*5,STAER 


) 


REPORT ERROR SET 



4 T SURG #100000 iCK SU REG 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 
TEST 1 SERIAL LINE UNIT TEST 



002474 


022737 


000176 


001004 


002502 


001404 






002504 


032777 


100000 


176300 


002512 


001003 






002514 


032737 


100000 


000176 


002522 


001402 






002524 


000137 


002356 




002530 








002530 


000716 






002532 








002532 


110077 


176244 




002536 








002536 








002536 


012737 


000100 


001124 


002544 


012737 


177777 


001126 


002552 


005337 


001124 




002SS6 


001407 






002560 


005337 


001126 




002564 


001767 






002566 


105777 


176304 




002572 


100372 






002574 


000442 






002576 








002576 


022737 


000176 


001004 


002604 


001404 






002606 


032777 


020000 


176176 


002614 


001003 






002616 


032737 


020000 


000176 



CNS: 



UEX3: 

002532 110077 176244 

1150 

241: 
WAIT4 
UD04: 

U0E4: 
UER4: 



002624 001002 

002626 104000 

002630 005731 

002632 

002632 012737 000006 001136 ERR6: 

002640 004537 004606 

002644 

002644 022737 000176 001004 

002652 001404 

002654 032777 100000 176130 

002662 001003 

002664 032737 100000 000176 

002672 001402 

002674 000137 002356 

002700 CN6: 

002700 000716 

002702 UEX4: 

1152 

1153 002702 117701 176172 



E3 

12-MAR-e5 15:38 



SEQ 0030 



CMP #176. SUR ,HU SUITCH REG THERE? 

BEQ .♦12 I NO. SKP HW CHECK 

BIT #100000, SHUSUR ;YES. Cl< HU REG 

BNE .♦10 sIF SET. SKP SW REG Cl< 

BIT #100000. SUREG ;0THERUISE, ALSO CK SU REG 

BEQ CN5 ; CONTINUE IF BIT 15 » 0 

JMP 201 : OTHERWISE LOOP 



BR WAITS ;L00P 



M0V8 RO.SLPB ;XMIT BYTE 

IWAITI \W,.20« 

;WAIT FOR INPUT, OR TIMEOUT 

MOV #100. WORK sLOAD CNTR 

MOV «-l.W0RKA ;L0A0 COUNT 

DEC WORK ;BUMP CNTR 

BEQ WER4 i ERROR IF TIMEOUT 

DEC WORKA ;BUMP COUNT 

OEQ W004 sLOOP IF COUNT 0 

TSTB 80LLPS :CK STATUS 

BPL U0E4 ;L0OP TIL DONE 

BR UEX4 {CONTINUE 

(TSURG #20000 ;CK SW REG 

CMP #176. SWR ;HU SWITCH REG THERE? 

BEQ .♦12 :N0, SKP HW CHECK 

BIT #20000. 9HWSWR ;YES. CK HW REG 

BNE .♦lO J IF SET. SKP SW REG CK 

BIT #20000. SWREG s OTHERWISE. ALSO CK SW REG 

J TEST FOR INHIBIT ERROR MSG 

BNE .♦6 .'BRANCH IF NO MSG WANTED 

EMT *0 

ETIM } TIMED OUT ERROR 

♦ERROR \N.20* 

MOV #6. ERCOUNT :SET UP ERROR COUNT 6 

JSR tfS.STAER {REPORT ERROR SET 

«TSWR6 #100000 :CK SW REG 

CMP #176. SWR :HW SWITCH REG THERE? 

BEQ .^12 iNO. SKP HW CHECK 

BIT #100000, 9HWSWR :YES. CK HW REG 

BNE .♦!© :IF SET, SKP SW REG CK 

BIT #100000, SWREG {OTHERWISE, ALSO CK SW REG 

BEQ CN6 {CONTINUE IF BIT 15 ' 0 

JMP 201 {OTHERWISE LOOP 



BR WAIT4 {LOOP 



MOVB SDLRBUF.Rl -.GET BYTE IN 



MACRO Ml 113 



TEST 1 


SERIAL 


LINE UNIT TEST 


1154 


002706 


120001 




1155 


002710 


AA1 ATI 




1156 








1157 


002712 


104000 




1158 


002714 


006756 




1159 


002716 






002716 


012737 


000007 




002724 


004537 


004606 




002730 








002730 


022737 


000176 




002736 


001404 






002740 


032777 


100000 




002746 


001003 






002750 


032737 


100000 




002756 


001402 






002760 


000137 


002356 




002764 






1160 


002764 


013700 


001134 


1161 


002770 


000137 


002366 


1162 








1163 


002774 


000261 




1164 


002776 


006100 




1165 


003000 


105700 




1166 


003002 


100002 




1167 


003004 


000137 


002356 


1168 


003010 


043 777 


001122 


1169 








1170 


003016 






1171 


003016 








003016 








003024 


001404 






003026 


032777 


000001 




003034 


001003 






003036 


032737 


000001 


1172 


003044 


001402 




1173 


003046 


000137 


001464 



1174 
1175 
1176 



001136 ERR7 



CN7! 



26$; 



40«: 
591: 



r3 

12 -MAR -85 15:38 



SEQ 0031 



CMPB 


RO.Rl 


BEQ 


26$ 


EMT 


*0 


ERHS2 




1 ERROR 




MOV 




JSR 


tf5 STAER 


»TSURG 


«100000 


CMP 


#176, SUR 


BEQ 


. +12 


BIT 


#100000. SHUSUR 


BNE 


.♦10 


BIT 


#100000 SUREG 


BEQ 

W W V 


CN7 


JMP 


20$ 


MOV 


SAVE RO 


JMP 




SEC 




ROL 


RO 


TSTB 


RO 


BPL 


. *6 


JMP 


20$ 


BIG 


MAINTB.SLPS 


nSURG 


#1 


CMP 


#176. SWR 


BEQ 


.♦12 


BIT 


#1.SHUSUR 


BNE 


.♦10 


BIT 


#1 . SUREG 


BEQ 


TEST2 


JMP 


TESTl 



sSAME? 
:0K 



{"LOOPBACK FAILED" MSG 

sLOOPBACK FAILED 

sSET UP ERROR COUNT 7 
; REPORT ERROR SET 

iCK SU REG 

;HU SWITCH REG THERE? 

jNO. SKP HU CHECK 

;YES, CK HU REG 

ilF SET, SKP SU REG CK 

;OTHERUISE. ALSO CK SU REG 

{CONTINUE IF BIT 15-0 

:OTHERUISE LOOP 

{RESTORE. RO 
{TRY AGAIN 

;SET CARRY 
s SHIFT BIT 



.-NOT FINISHED 

{CLEAR MAINTENANCE (L00PBACK3 BIT 



CK SU REG 

HU SUITCH REG THERE? 

NO. SKP HU CHECK 

YES, CK HU REG 

IF SET. SKP SU REG CK 

OTHERUISE, ALSO CK SU REG 

CONTINUE IF « 0 

IF SET, LOOP ON TEST 



G3 



CZLCPA COLOR PRINTER OIAGfWSTIC MACRO MlllB 
TEST ^ COLOR PRINTER 'SELF' TEST 



12-MAR 85 15:38 



SEQ 0032 



1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 



.SBTTL TEST 2 COLOR PRINTER 'SELF' TEST 
Test 2 Initialization Test 

-A Invoke "Confidence (Self) Test" of Color Printer 

-B Monitor and report unexpected response: 

Issue request for device "state" or "status" and check for 
correct response: 

"VERIFIED" message - I'm OK 
Anything else > I'm Not OK 



1194 


003052 








TEST2: «TSURG 


«40000 


sCK SU REG 




003052 


022737 


000176 


001004 


CMP 


«176,SUR 


:HU SUITCH REG THERE? 




003060 


001404 






BEQ 


.♦12 


:N0, SKP HU CHECK 




003062 


032777 


040000 


175722 


BIT 


«40000,9HUSUR 


:YES. CK HU REG 




003070 


001003 






BNE 


.♦10 


;IF SET, SKP SU REG CK 




00307? 


032737 


040000 


000176 


BIT 


#40000. SURE6 


sOTHERUISE, ALSO CK SU REG 


1195 


003100 


001002 






BNE 


611 


sIF SET, SKIP TST # HDR MSG 


1196 


003102 








IPRTSN 


2 




003102 


104000 






EMT 


♦0 


; PRINT TEST NUMBER 




003104 


005630 






TY02 




sTEST NUMBER MESSAGE 


1197 
















1198 
















1199 
















1200 










i SEND "ESCAPE 


" SEQUENCE TO THE 


PRINTER 


1201 
















1202 


003106 








61*: *PRINT 


LCP5 


J INVOKE CONFIDENCE TEST 




003106 


012737 


005542 


004312 


MOV 


#LCP5,PRTMSG 


iLOAD MESSAGE ADDRESS 




003114 


004437 


004250 




JSR 


|t4.PRINE 


{PRINT IT 



1203 
1204 
1205 
1206 
1207 
1208 

1209 003120 

1210 003124 

1211 003126 

1212 003132 

1213 003134 

1214 003136 

1215 003142 

003142 
003142 
003150 
003156 
003160 
003166 
003174 
003200 
003202 



EXPECT "VERIFIED" MESSAGE FROM PRINTER 



012703 
105013 
012701 
111100 
001002 
000137 



001166 
005556 

003604 



62«: 
64(: 



MOV 

CLRB 

MOV 

MOVB 

BNE 

JMP 

(UAITI 



012737 000100 001124 

022737 000001 001064 
001003 

012737 000600 001124 

012737 177777 001126 

005337 001124 
001407 

005337 001126 



UAIT5: 

MOV 
CMP 
BNE 
MOV 

UDD5: MOV 
DEC 
BEQ 

U0E5: DEC 



#eUFF,R3 

(R3) 

0LCP7.R1 
(Rl).RO 
.♦6 
69 « 

\U..TEST2.#600 



«100.U0RK 
Ol.CYCCNT 
UD05 

«600.U0RK 

0-l.UORKA 

UORK 

UER5 

UORKA 



{GET RESPONSE 

J INPUT BUFFER ADDRESS 

iNULL BYTE 

{EXPECTED STRING ADDRESS 
J GET EXPECTED CHAR 

{END OF MSG. EXIT 

{WAIT FOR INPUT, OR TIMEOUT 

{LOAD CNTR 
{2ND PASS? 

{NO. LEAVE COUNT AS IS 

{LOAD CNTR WITH LONG CNT 
{LOAD COUNT 
{BUMP CNTR 
{ERROR IF TIMEOUT 
{BUMP COUNT 



h3 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 
TEST 2 COLOR PRINTER 'SELF' TEST 
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003206 


001767 








BEQ 




003210 


105777 


175662 






TSTB 




003214 


100372 








BPL 




003216 


000442 








BR 




003220 








UER5: 


$TSURG 




003220 


022737 


AAA 4 ^£ 

000176 


001004 




CMP 




003226 


001404 








BEQ 




003230 


032777 


020000 


175554 




BIT 




003236 


001003 








BNE 




003240 


032737 


020000 


000176 




BIT 




003246 


001002 








BNE 




003250 


104000 








EMT 




003252 


005731 








ETIM 




003254 










TERROR 




003254 


012737 


000010 


001136 


ERRIO: 


MOV 




003262 


004537 


004606 






JSR 




003266 










$TSURG 




003266 


022737 


000176 


001004 




CMP 














DbU 




003276 


032777 


100000 


175506 




BIT 














one 




003306 


032737 


100000 


000176 




BIT 




003314 


001402 








BEQ 




003316 


000137 


003052 






JMP 




003322 








CNIO: 






003322 


000707 








BR 




003324 








UEX5: 




1216 


003324 


117702 


175550 






MOVB 


1217 


003330 


110223 








MOVB 


1218 


003332 


105013 








CLRB 


1219 


003334 


112100 








MOVB 


1220 


003336 


120002 








CMPB 


1221 


003340 


001674 








BEQ 


1222 










* 




1223 










: IGNORE UP TO 


1224 














1225 


003342 


020327 


001172 






CMP 


1226 


003346 


003003 








BGT 


1227 


003350 


105741 








TSTB 


1228 


003352 


000137 


003132 






JMP 


1229 














1230 


003356 


104000 






661: 


EMT 


1231 


00336C 


007120 








ERMS4 


1232 


003362 










lERROR 




003362 


012737 


000011 


001136 


ERRll: 


HOV 




003370 


004537 


004606 






JSR 



1233 
1234 
1235 
1236 
1237 



U0D5 

90LLPS 

WOES 

WEX5 

#20000 

0176. SUR 

.♦12 

#20000, aHUSUR 
.♦10 

«20000.SUREG 

.♦6 

♦ 0 



#10, ERCOUNT 
K5.STAER 

#100000 
#176. SWR 
.♦12 

#100000, 3HWSUR 
.♦10 

#100000, SUREG 

CNIO 

TEST2 



UAIT5 



S0LRBUF,R2 

R2.(R3)» 

(R3) 

(Rl)^.RO 
R0.R2 
64 » 



R3,#BUFF^4 
661 
-CRD 
64$ 



\N 

«11. ERCOUNT 
X5.STAER 



LOOP IF COUNT 0 
CK STATUS 
LOOP TIL DONE 
CONTINUE 
CK SU REG 

HU SWITCH REG THERE? 

NO. SKP HU CHECK 

YES, CK HW REG 

IF SET, SKP SW REG CK 

OTHERWISE. ALSO CK SW REG 

TEST FOR INHIBIT ERROR MSG 

BRANCH IF NO MSG WANTED 



.-TIMED OUT ERROR 



sSET UP ERROR COUNT 10 
; REPORT ERROR SET 

:CK SW REG 

;HW SWITCH REG THERE? 

:N0. SKP HW CHECK 

:YES. CK HW REG 

sIF SET. SKP SW REG CK 

{OTHERWISE, ALSO CK SW REG 

{CONTINUE IF BIT 15 - C 

{OTHERWISE LOOP 



sLOOP 



{GET CHAR IN 
{STORE IT 
{NULL NEXT BYTE 
{GET EXPECTED CHAR 
{COMPARE 

>0K, WAIT FOR ANOTHER 

LOOKING FOR "V" 

{R3 POINTS TO GARBAGE STORED 
{MORE THAN 4 MISCOMPARES 
{RESET TO BEGINING OF MSG 
{TRY AGAIN 



(UNEXPECTED RESPONSE 

' {SET UP ERROR COUNT 11 

(REPORT ERROR SET 



003374 
003376 



104000 
001166 



Print Incomplete "VERIFIED" message from "Power-up" diagnost 
♦0 



EMT 
BUFF 



(Stored message 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO mil3 
TEST 2 COLOR PRINTER 'SELF' TEST 



1238 003400 012737 000005 001062 

1239 

1240 

1241 



1242 003406 










UvO*»vO 












012737 


000100 


001124 






012737 


177777 


001126 




003422 


005337 


001124 






003426 


001407 








003430 


005TT7 


001 1 Pf, 






003434 


001767 










105777 

III 


175434 






003442 


100372 








003444 


000443 








003446 










003446 


022737 


000176 


001004 




003454 


001404 








003456 


032777 


020000 


175326 




003464 


001003 








003466 


032737 


020000 


000176 




003474 


001002 








003476 


104000 








003500 


005731 








003502 










003502 


012737 


000012 


001136 




003510 


004537 


004606 






003514 










003514 


022737 


000176 


001004 




003522 


001404 








003524 


032777 


100000 


175260 




003532 


001003 








003534 


032737 


100000 


000176 




003542 


001402 








003544 


000137 


003052 






003550 










003550 


000137 


003604 






003554 








1243 










1244 


003554 


117737 


175320 


004464 


1245 


003562 


004737 


004400 




1246 


003566 


022737 


000015 


004464 


1247 


003574 


001304 






1248 










1249 


003576 


005337 


001062 




1250 


003602 


001301 






1251 










1252 










1253 


003604 








1254 


003604 









67*: 
UAIT6: 



U0E6: 



UER6: 



CN12: 



UEX6: 



69«: 
79*: 



13 

12-MrtR-85 15:38 



SEQ 0034 



MOV #5,LINCNT ;Load line count 

all subsequent info sent by printer ■ error info 

*UAITI \U.79*,TEST? 

J WAIT FOR INPUT, OR TIMEOUT 



MOV 


«100.U0RK 


:L0A0 CNTR 


MOV 


«-l,UORKA 


;LOAD COUNT 


DEC 


UORK 


J BUMP CNTR 




WCff o 


. CODflD TC T THCni IT 


DEC 


UORKA 


{BUMP COLWT 


BEQ 


UD06 


jLOOP IF COUNT 0 


TSTB 


stni 1 PC 


, l.iV d 1 n 1 UO 


BPL 


U0E6 


sLOOP TIL DONE 


BR 


UEX6 


{CONTINUE 


*TSURG 


«20000 


tCK SU REG 


CMP 




• WU QUTTPU DPft TUrOP9 

f nw 1 ncu I nciftc f 


BEQ 


.♦12 


J NO, SKP HW CHECK 


BIT 


«20000.aHUSUR 


jYES, CK HU REG 


BNE 


.♦10 


J IF SET. SKP SU REG CK 


BIT 


»20000.SUREG 


tOTHERUISE. ALSO CK SU REG 






{TEST FOR INHIBIT ERROR MSG 


BNE 


.♦6 


{BRANCH IF NO MSG UANTED 


EMT 


♦0 




ETIM 




{TIMED OUT ERROR 


* ERROR 


\N,TEST2 




MOV 


912 , ERCOUNT 


{SET UP ERROR COIWT 


JSR 


ItS.STAER 


{REPORT ERROR SET 


*TSURG 


#100000 


{CK SU REG 


CMP 


#176, SWR 


{HU SUITCH REG THERE? 


BEQ 


.♦12 


{NO, SKP HU CHECK 


BIT 


#100000. SHUSUR 


(YES. CK HU REG 


BNE 


.♦10 


{IF SET. SKP SU REG CK 


BIT 


#100000. SUREG 


(OTHERUISE. ALSO CK SU REG 


BEQ 


CN12 


{CONTINUE IF BIT 15 


JMP 


TEST2 


; OTHERUISE LOOP 




79* 


{EXIT 



MOVB aOLRBUF,TYP0AT 

JSR »*7,TYPD 

CMP #15,TYP0AT 

BNE 67* 

DEC LINCNT 

BNE 67* 



{Character from printer 

{Type it 

{ CR? 

I No. loop 

{Bump line count 
{Loop if not done 



*TSURG 



iCK SU REG 



CZLCf A COLOR PRINTER DIAGNOSTIC MACRO M1113 
TEST 2 COLOR PRINTER 'SELF' TEST 

003604 022737 000176 001004 

003612 001404 

003614 032777 000002 175170 

003622 001003 

003624 032737 000002 000176 

1255 003632 001402 

1256 003634 000137 003052 
1257 

1258 



12 MAR -85 15:38 



CMP 
BEQ 
BIT 
BNE 
BIT 
BEQ 
JMP 



#176. SUR 
.♦12 

«2.9HUSUR 
. *10 

«2,SUREG 

TEST3 

TEST2 



iHU SWITCH REG THERE? 

.•NO, SKP HW CHECK 

{YES, CK HU REG 

J IF SET. SKP SW REG CK 

{OTHERWISE, ALSO CK SU REG 

J CONTINUE IF - 0 

J IF SET, LOOP ON TEST 



I<3 



CZLCPA COLOR PRINTER DIAGNOSTIC 
TEST 3 PRINTER DISPLAY TEST 



MACRO rilllS 12-nAR-85 15:36 



SEQ 0036 













. S8TTL 


TEST 3 


PRINTER DISPLAY 


TEST 


1 1 












IcOc 










■ 








leoo 










s 


Test 3 


Display Test 




ico* 
















1 oe^fi 












-A Send "Escape Sequence" to color printer 


1 












CO 


initiate Pattern display 


1 3*7 
leO r 






































VVJ for 


001 OAd 

WWAwO** 




TEST3: 


TQT 




















83i 


• TP 1 CT PACC PypniTP TrCT fil UAVG 


XC r X 
















XC f £ WOCvw 














A4 


• OMi y TF 1 nnp on tc:t rtt roMTTuiir 




033737 


000176 

www A ' W 


vvx vv** 






TMP 


0176 SUR 


•HU ^UTTCH RFC THFRF7 


W WW rf*t 


001404 










DCW 


♦ 13 

• * XC 


•NO SKP HU CHFfK 




033777 

WWC fit 


000004 


1 7$ 1 36 






BTT 

DX 1 


04 SHUSUR 


• YFS CK HU RFC 


003664 


00100!^ 

W A W W 












. ♦lO 


•TF SFT SKP SU RFC dK 


VV<Jwwv 


03P737 

VWC ' W r 


000004 


0001 7ft 






BTT 
ox 1 


#4 . SURE6 


: OTHERWISE. ALSO CK SU REG 


1 37'^ Oft^A74 

XC ' J \/\/<tJv f ^ 


on 1 OOP 

WA WC 










BNE 


WC ▼ 


•SET CONTINUE TEST 

■ WW < 1 VWI« I AHWW 1 WW 1 


XC f ** \/\/<Jv ' V 


0001*^7 

WVAW ■ 


004070 
vv**w • w 








JMP 


TSEND 


•OTHERUISE EXIT>>>> >>>>>> 

( V • f • W " AWWf W^AI ^^^^^^^^^^ 




















1P76 00370P 








821: 


nSURG 


040000 

w^r W W 


:CK SU REG 


00370? 


0PP737 

\/C C • W f 


000176 

WWWA • W 


001004 

WWA WW^ 






CMP 


0176. SUR 


iHU SUITCH REG THERE? 

t r*n WMA 1 nwu ■ riw>^w I 


003710 


001404 

W A^ V"* 










BEQ 


. +12 


:N0. SKP HU CHECK 


003712 


032777 


040000 


175072 






BIT 


040000. 8HUSUR 


sYES. CK HU REG 


0037P0 


001003 

V W A WW W 










BNE 


. *10 


I IF SET. SKP SU REG CK 




033737 

VWC ' W ' 


040000 

W^WWVW 


000176 

WWWA • W 






BIT 


040000. SUREG 


i OTHERUISE. ALSO CK SU REG 


1277 003730 


001002 










BNE 


831 


«IF SET. SKIP TST 0 HDR MSG 


1378 00373? 












IPRTSN 


3 




003732 


1040OO 

A W^ WWW 










EMT 


*0 


: PRINT TEST NUMBER 


003734 


005673 

WW WW ■ w 










TY03 




:TEST NUMBER MESSAGE 


Ac > 7 


















IP AO 


















1PA1 

XC W A 










DELAY FOR A 


SEC 




1PAP 


















1P83 003736 

AC WW WW • wv 


012737 


000004 


001124 


83 «: 


MOV 


04.U0RK 


:2 SEC CNTR 


1384 003744 


012737 

WAC t W f 


177777 


001126 


84»: 


MOV 


0-l.UORKA 


iLOAO COUNT 


138*: nA^7S3 


005337 

WWW WW > 


001134 

WX 








DEC 


UORK 


:BUMP CNTR 


1386 003 7S6 

ACOW WW ' WW 


001404 










BEQ 


871 


{TIMEOUT 


1PA7 003760 

ACW ■ WW ffvV 


005337 

WWW WW ' 


001126 




861: 


DEC 


UORKA 


iBUMP COUNT A 


IPSA O03764 


001767 

WWA ' w ' 










BEQ 


84* 


sLOOP IF COUNT 0 


IPAQ 00371^6 

XCw7 WW* WW 


0O0774 

V WW t » 










BR 


86« 


sLOOP TIL DONE 


1PQO 

AC 7\/ 


















1 PQ1 

X C 7A 


















IPQP 
A C 7C 










SEND 


"ESCAPE" SEQUENCE TO THE 


PRINTER 


1293 


















1394 003770 

AC7"V WWW ( fW 








87#: 








1295 


















1396 003770 

AC 7v WW ( r w 












*PRINT 


LCP4 


: INVOKE DISPLAY TEST 


003770 


012737 


005533 


004312 






MOV 


0LCP4.PRTMSG 


(LOAD MESSAGE ADDRESS 


003776 


004437 


004250 








JSR 


M.PRINE 


J PRINT IT 


1297 


















1298 


















1299 










DELAY FOR A 


COUPLE OF MINUTES 




1300 


















1301 004002 


012737 


000400 


001124 


93»: 


MOV 


0400. UORK 


jTUO MIN CNTR 


1302 004010 


012737 


177777 


001126 


94»: 


MOV 


0-1. UORK A 


iLOAD COUNT 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO MIUS 
TEST 3 PRINTER DISPLAY TEST 

1303 004016 005337 001124 

1304 004022 001404 

1305 004024 005337 00H26 96$: 

1306 004030 001767 

1307 004032 000774 
1308 

1309 t 

1310 004034 99«: 
004034 022737 000176 001004 
004042 001404 

004044 032777 000004 174740 

004052 001003 

004054 032737 000004 000176 

1311 004062 001402 

1312 004064 000137 003640 
1313 

1314 
1315 



L3 

12-MAR-85 15:38 



SEQ 0037 



DEC UORK 

BEQ 99* 

DEC UORKA 

BEQ 94 » 

BR 961 



ITSURG »4 

CMP «176.SUR 

BEQ .*12 

BIT «4.aHUSUR 

BNE .*10 

BIT »4,SUREG 

BEQ TSENO 

JMP TESTS 

.OSABL LSB 



BUMP CNTR 
TIMEOUT 
BUMP COUNT A 
LOOP IF COUNT 0 
LOOP TIL DONE 



:CK SU REG 

sHU SWITCH REG THERE? 

iNO, SKP HU CHECK 

iYES. CK HU REG 

ilF SET, SKP SU REG CK 

:OTHERUISE, ALSO CK SU REG 

{CONTINUE IF - 0 

J IF SET, LOOP ON TEST 



M3 

CZLCPA COLOR PRINTER DIAGNOSTIC MACRO 11113 12-nAR-6S 15:38 



1317 








COTTI 
.301 IL. 






1 11 A 

1310 








CRTTI 
. Z>0 1 1 1, 


CMft nc 
CNU Ur 


leal dcuucNwc 


1 1 1 Q 














1 T3A 














1 T31 








run 


nC TCCT 
ur 1 C9 1 




1 133 














1 'Ks'K nnAmn 


ftAS337 


001 OAA 
VwX vo* 






TUT 

inn. 






















wwVA 'O 


AOI AAA 




TMP 


Al 7& CUD 














• * AC 




039777 








RTT 


A4nonA aMucuB 


OAAI 1 9 

As 


001003 








one 


• to 




0397S7 




OOO 1 7fk 




RTT 


4400AA CLIQPrL 

IP* WW f 9MnC w 












RNF 


TCBCT 
1 And 1 




004937 












11P7 004130 










CYCCNT 




t '^911 no4 1 X9 














1 'X9Q 004 1 '^4 










4 




I'^'YO 00411^ 










, 


• O 




























dlOOOO 

w X www 




02P737 


OOO 1 7 A 

WW V X * w 


001004 

Vw A wV^ 




CMP 


dl76 SUR 




0O14O4 








BEQ 






OSP777 

III 


OlOOOO 

WX vWWW 


174632 




BIT 


dioooo aHusuft 


AAA 1 AO 


001003 








BNE 


. .lO 




032737 


010000 

W A WW WW 


000176 




BIT 


AlOOOO.SUREG 

WA WWW $ WMI Iw W 




001002 








BNC 


TSEAB 




000137 


001464 






JMP 


TESTl 


















104000 






TSCAB: 


EMT 


»0 


1337 004200 


006416 








MES7 




1330 00420P 


105777 


174614 




TSEOA: 


TST8 


aTKS 


1339 004206 


100375 








BPL 


TSEDA 


1340 OO4210 


117700 


174602 






MOVB 


9TKB.ro 


1341 004214 


142700 


000140 






BICB 


•140, RO 


1342 004220 


122700 


000004 






CMP6 


94.R0 


1343 004224 


001004 








BNE 


TSRST 


1344 004226 


004737 


014066 






JSR 


i»7,CLRTTY 


1345 














1346 004232 


000137 


001306 




TSRSS: 


JMP 


SETUP 


1347 














1348 004236 


000137 


001464 




T5RST: 


JMP 


TESTl 


1349 















R KEY INPUT. 

(BUMP PASS COUNT 
iCK SU REG 

iHH SWITCH REG THERE? 

I NO. SKP HU CHECK 

:YES. CK HU REG 

I IF SET. SKP SU REG CK 

iOTHERUISE. ALSO CK SU REG 

sOON'T PRINT IF • SET 

{CONVERT PASS « 



s PRINT IT 
:CK SU REG 

:HU SUITCH REG THERE? 

(NO. SKP HU CHECK 

.YES. CK HU REG 

tIF SET. SKP SU REG CK 

;OTHERUISE, ALSO CK SU REG 

; PAUSE IF - SET 

sLOOP TO BEGINING OF TEST 



;ANY KEY TO RESTART 
sKEY INPUT? 
sIF NOT LOOP 
;GET INPUT CHAR 
jCLR UPPER 2 BITS 
iCTRL 0. t. D. OR d 
sIF NOT 

iCLR PENDING CHARACTERS 



N3 



CZLCPA COLOR PRINTER DIAGNOSTIC 
MISC. SUBROUTINES 



1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 



MACRO M1113 12-MAR-a5 15:38 



SEQ 0039 



.SBTTl MISC. SUBROUTINES 
i MISC. ROUTINES 



t 



ROUTINE TO OUTPUT ASCII MESSAGES ON THE LINE PRINTER 



1366 
1367 
1366 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 



004242 
004250 
004254 
004256 
004260 
004262 
004262 
004270 

004274 
004302 
004310 
004312 
004314 
004322 
004330 



004332 
004334 
004340 
004342 
004346 
004350 
004352 
004360 
004362 
004370 
004372 
004376 
004400 
004406 
004414 
004416 
004422 
004424 
004426 
004432 
004434 
004436 
004444 
004450 
004456 



012737 
004737 
100007 
104000 
007305 

012737 
004537 

013737 
013737 
104000 
006570 
012737 
012737 
000204 



006S70 004312 
014122 



000013 
004606 

001000 
001002 



177564 
177566 



001136 



001020 
001014 



001020 
001014 



PRNNT : MOV 
PRINE: JSR 
BPL 
EMT 
ERMS6 
TERROR 
ERR13J MOV 
JSR 

RINT : MOV 
MOV 
EMT 

PRTMSG: MES14 
TYPINT: MOV 
MOV 
RTS 



#MES14. PRTMSG 

»\ERCHK 

RINT 

*0 

\N 

»13, ERCOUNT 
K5.STAER 



PRINT TEST NUMBER 
TEST FOR ERROR 
BRANCH IF OK 

I STATUS ERROR 



sSET UP ERROR COUNT 13 
s REPORT ERROR SET 



LPS. TPS J SET VECTORS - 

LPB.TPB J TO PRINT ON LINE PRINTER 

*0 :PRINT 

{MESSAGE 
•177564, TPS s RESET VECTORS 
•177566. TPB jFOR TTY 
K4 i RETURN 



j ************************************************************************* 

•INTERRUPT CALLED ROUTINE TO OUTPUT ASCII MESSAGES ON TELETYPE PRINTER 











EMT 


*0 










i 


POINTER 


TO MESSAGE 




011600 






1 

TYP: 


MOV 


8K6,K0 


iGET ADOR. THAT CONTAINS MESS. 


062716 


000002 






ADO 


•2.8K6 


J SET UP EXIT 


011000 








MOV 


SMO.KO 


{ADDRESS OF MESSAGE IN RO 


112037 


004464 




TYPA: 


MOVB 


(0)«,TYPOAT 


{GET CHARACTER 


001001 








BNE 


TYPC 


(BRANCH IF NOT DONE 


000002 








RTI 




J EXIT 


122737 


000045 


004464 


TYPC: 


CMPB 


•45.TYP0AT 


I CHECK FOR 


001426 








BEQ 


TYPF 


1 BRANCH IF "K" 


122737 


000043 


004464 




CMPB 


#43.TYPDAT 


1 CHECK FOR 


001427 








BEQ 


TYPG 


(BRANCH IF "•" 


004737 


004400 






JSR 


»t7,TYP0 


(TYPE CHARACTER IN TYPDAT 


000761 








BR 


TYPA 


(NEXT CHAR IN MESSAGE 


113777 


004464 


174406 


TYPO: 


MOVB 


TYPDAT.flTPB 


(OUTPUT CHARACTER TO PRINTER 


023737 


001020 


001120 




CMP 


TPS.02CSRH 


(ARE UE REALLY TALKING TO A DZ 


001004 








BNE 


TYPDO 


J OR, IF NOT OZ 


005777 


174376 






T3T 


8TPS 


(IF DZ BIT 15 IS READY BIT NOT 


100375 








BPL 


.-4 


(WAIT UNTIL DONE IS SET 


000403 








BR 


TYPDOl 


(SKIP OTHER -TSTB" 


105777 


174366 




TYPDO: 


TSTB 


8TPS 




100375 








BPL 


.-4 


(CHAR. TYPED EXIT 


000207 






TYPDOl! 


RTS 


1*7 


112737 


000012 


004464 


TYPF: 


MOVB 


•12.TYP0AT 


(OUTPUT LF 


004737 


004400 






JSR 


#7, TYPO 


(GO TYPE CHAR. 


112737 


000015 


004464 


TYPG: 


MOVB 


•15.TYPDAT 


1 OUTPUT CR 


004737 


004400 






JSR 


*7,TYPD 


(GO TYPE CHAR. 



B4 



CZLCPA COLOR PRINTER DIAGNOSTIC 
MISC. SUBROUTINES 



MACRO M1113 12-MAR-85 15:38 



SEQ 0040 



1406 004462 

1407 004464 
1408 

1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 

1419 004466 

1420 004472 

1421 004476 
1422 

1423 004502 

1424 004506 

1425 004510 

1426 004512 

1427 004514 

1428 004520 

1429 004524 

1430 004530 

1431 004532 

1432 004534 

1433 004540 

1434 004542 

1435 004546 

1436 004550 

1437 004554 

1438 004556 

1439 004560 

1440 004564 

1441 004570 
1442 

1443 004574 
1444 

1445 004576 

1446 004600 

1447 004602 

1448 004604 
1449 

1450 
1451 
1452 
1453 

1454 004606 

1455 004612 

1456 004616 

1457 004620 

1458 004622 

1459 004624 
004624 
004632 
004634 



000727 
000000 



004600 
004602 
004604 

004576 



004576 
177770 
000060 



004576 
004576 
004576 



004600 
004602 
004604 



8R 
0 



TYPA 



TYPO AT: 

ROUTINE TO CONVERT OCTAL TO ASCII 



010137 
010237 
010337 

013537 
012501 
012502 
060201 
013703 
042703 
062703 
110341 
000241 
006037 
000241 
006037 
000241 
006037 
005302 
001356 
013701 
013702 
013703 

000205 

000000 
000000 
000000 
000000 



010537 004752 
004537 004466 
001136 
006104 
000003 

022737 000176 001004 
001404 

032777 020000 174150 



1 ENTER 


ROUTINE 


AS FOLLOWS 






JSR 


K5.C0NV 




sXXXXXX 


•ADDRESS 


OF NUMBER TO BE 


CONVERTED 


; XXXXXX 


'ADDRESS 


OF ASCII MESSAGE 


t XXXXXX 


> NUMBER 


OF OCTAL NO.'S TO BE CONVERTED 


CONV: 


MOV 


Rl CflNRl 


•SAVF RF(; 




MOV 


R2 C0NR2 


•SAVE RFG 




MOV 


R3 C0NR3 


•SAVE REG 




MOV 


9(5)*. ACNVX 


iADDRSS OF NO. TO BE CONVERTED 




MOV 


(5)».K1 


; ADDRESS OF MESSAGE 




MOV 


(5)*. 1*2 


; NUMBER OF ASCII CHARACTERS 




ADD 


HZ, HI 


: FIRST CHAR ADDRESS 


ACVN; 


MOV 


ACNVX. 1(3 


1 STORE NUMBER 




BIC 


#177770. U3 


: ISOLATE LEAST SIGNIFTCANT HTT 




ADD 


«60.it3 


sSET UP ASCII CHARACTER 




MOVB 


1*3. - (1) 


.•STORE CHARACTER 




CLC 




;6ET NEXT SIGNIFICANT BIT ... 




ROR 


ACNVX 






CLC 








ROR 


ACNVX 






CLC 








ROR 


ACNVX 






DEC 


tf2 


:-l FROM ASCII CHAR. CNT 




BNE 


ACVN 


i CONVERT NEXT CHARACTER 




MOV 


CONRl. Rl 


: RESTORE REG 




MOV 


C0NR2.R2 


{RESTORE REG 




nov 


C0NR3.R3 


{RESTORE REG 




RTS 


«5 


:EXIT! CONVERSION DONE 


ACNVX: 


0 




iUORK REGISTER 


CONRl: 


0 






C0NR2: 


0 






C0NR3: 


0 






******* 


.'routine to report ERROR COUNT 




STAER: 


MOV 


K5.STARN 


■SAVE R5 




JSR 


K5,C0NV 


.'convert OCTAL TO ASCII 




ERCOUNT 






HED2 
3 








IT SURG 


»20000 


:CK SU REG 




CMP 


#176.SUR 


;HU SWITCH REG THERE? 




BEQ 


♦ 12 


;N0, SKP HW CHECK 




BIT 


#20000, 9HUSUR 


sYES. CK HU REG 



C4 
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004642 


001003 








BNE 


.♦10 


ilF SET. SKP SU REG CK 




004644 


032737 


020000 


000176 




BIT 


«20000.SUREG 


: OTHERWISE . ALSO CK SU REG 


1460 
















.•TEST FOR INHIBIT ERROR MSG 


1461 


004652 


001002 








BNE 


. ♦& 


, BRANCH IF SET 


1462 


004654 


104000 








EMT 


♦ 0 


tTYPE ERROR MESSAGE 


1463 


004656 


00o063 








HEDl 




1464 


















1465 


004660 










♦TSWRG 


010000 


iCK SU REG 




004660 


022737 


000176 


001004 




CMP 


0176.SWR 


(HU SUITCH REG THERE? 




004666 


001404 








BEQ 


. ^12 


sNO. SKP HU CHECK 




004670 


032777 


010000 


174114 




BIT 


010000, 9HUSUR 


sYES. CK HU REG 




004676 


001003 








BNE 


.♦10 


J IF SET, SKP SU REG CK 




004700 


032737 


010000 


000176 




BIT 


010000, SUREG 


iOTHERUISE. ALSO CK SU REG 


1466 
















;TEST FOR HALT ON ERROR 


1467 


004706 


001416 








BEQ 


STEXT 


{BRANCH IF NO HALT UANTED 


1468 










f 


HALT 




(HALT ON ERROR 


1469 


004710 


104000 








EMT 


♦0 


tPRINT IT 


1470 


004712 


006504 








MESIO 






1471 


















1472 


004714 


105777 


174102 




STEOA: 


TSTB 


aTKS 


J KEY INPUT? 


1473 


004720 


100375 








BPL 


STEDA 


;IF NOT LOOP 


1474 


004722 


117705 


174070 






MOVB 


aTKB.R5 


iGET INPUT CHAR 


1475 


004726 


142705 


000140 






BICB 


0140. R5 


jCLR UPPER 2 BITS 


1476 


004732 


122705 


000004 






CMPB 


04. R5 


{CTRL 0. 1. 0. OR d 


1477 


004736 


001002 








BNE 


STEXT 


J IF NOT 


1478 


004740 


004737 


014066 






JSR 


l»7,CLRTTY 


iCLR PEHDIUG CHARACTERS 


1479 


















1480 


004744 


013705 


004752 




S7EXT : 


MOV 


STARN.ft5 


tRESTORE R5 


1481 


004750 


000205 








RTS 


MS 


{RETURN 


1482 










.EVEN 








1483 


004752 


000000 






STARN: 


.UORO 


0 


••RETURN STORAGE 



D4 
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1485 
1486 
1487 
1488 
1489 
1490 
1491 

1492 004754 

1493 004756 

1494 004760 

1495 004762 

1496 004764 

1497 004766 
1498 

1499 
1500 

1501 004770 

1502 004776 

1503 005004 

1504 005012 

1505 005014 

1506 005022 

1507 005024 

1508 005032 

1509 005034 

1510 005042 
1511 

1512 005044 

1513 005052 
1514 

1515 005054 

1516 005062 

1517 005064 

1518 005066 

1519 005074 

1520 005076 

1521 005100 

1522 005104 

1523 005112 

1524 005114 

1525 005120 

1526 005122 

1527 005130 

1528 005136 

1529 005144 

1530 005146 

1531 005150 

1532 005154 

1533 005156 

1534 005162 

1535 005164 

1536 005170 

1537 005176 

1538 005200 

1539 005204 

1540 005206 

1541 005214 
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SEQ 0042 



.SBTTL KEYBOARD INTERRUPT ROUTINE 

************************************ 

KEYBOARD INTERRUPT ROUTINE 

FOR ACCESS TO THE S/U SUITCH REGISTER 



010046 






TKINT: 


MOV 


*0 , - C SP ) 


SAVE REGISTERS 


010146 








MOV 


•I , - CSP J 




010246 








MOV 


•2, -iSP) 




010346 








MOV 


»3 , -C5P J 




010446 








MOV 


•4, -tSr J 




010546 








MOV 


X5.-(SP) 










; i i 98S 


TCT 


SIGNAL 


PREVIOUS CONTROL -G INPUT ? 








: ( s 898 


BEQ 


CNTRLG 


vo- 


017737 


174022 


001160 




MOV 


STKB.CHAR 


GET INPUT CHARACTER 


042737 


177600 


001160 




OTP 


#177600, CHAR 


•STRIP OFF PARITY BIT 


02273 1 


000007 


/\ft 1 4 £ ft 

001160 




I, Mr 


#7 , CHAR 


, CONTROL -G INPUT? 


001527 








OCA 


TYPSUR 


, YES -PRINT HEADER 


022737 


000015 


AA % 4 £ A 
001160 




Cnr 


«15,CHAR 


CARRIAGE RETURN ? 


001466 








tftu 


OGTS 


, YES -TERMINATE SUR CHANGE 


022737 


AAAA^fS 
UU0025 


AA1 1 £A 






«25.CHAR 


CONTROL -U INPUT ? 


001557 








DCU 


TK4 


YES -CLEAR PREVIOUS ENTRY 


022.1 3ii 


AAAA \ A 

000010 


AA1 1 £A 
OOllOO 






«10.CHAR 


i CONTROL -H INPUT ? 


001576 










TKHLP 


, YES -PRINT HELP 


022 fir 


AAAAAT 

000003 


AA 1 % difS 






»3.CHAR i CONTROL -C INPUT ? 


001 5b4 








Rria 

DCU 


TK9 


[YES -ABORT 


023 (2 / 


AA 1 1 £ A 


AAArtAft 




TMP 


CHAR,«60 {ILLEGAL » CHECK: LESS THAN 60 


100 OOl 








RPI 


TKl 


; NO -CONTINUE 


AAA4££ 

000466 








RQ 


UT3 


(YES -PRINT "7" 


022 '3 r 


AAAAC7 






fMP 


»67,CHAR 


{ILLEGAL « CHECK: GREATER THAN 


« AAAA 1 
lOOOOl 








RPI 


TK2 


i NO -CONTINUE 


AAAAC 1 
OU040l 








RR 

Dn 


UTS 


[YES -PRINT 


UU523 1 






1 Ac > 


INC 


DIGITS I NEXT DIGIT OF SUR INPUT 


AOO^T"? 
U2e 1 3 r 


AAAAAC 


noi 1 ^9 




CMP 


»6. DIGITS 


iMORE THAN SIX DIGITS ? 


• AA^ d 
100453 








RMT 


UT3 


lYES-PRlNT 


105777 


1 /3 f UO 




UTS • 


TCTB 
1 d ID 


8TPS 


iTTY PRINTER READY ? 


100375 








RPI 


UT2 


i NO-UAIT 


013 r / t 


AA1 1 ILA 


X 1 3D04 






CHAR.STPB 


PRINT CHARACTER 


1d2 to/ 




AA 1 1 An 






»60,CHAR 


CONVERT TO OCTAL 




000001 

WWW A 


001152 




CMP 


#1, DIGITS 


FIRST DIGIT ? 


001411 








BEQ 


TK5 


, YES -CONTINUE 


000241 








CLC 




ROTATE LEFT THREE 


006137 


001162 






ROL 


OCT 


TIMES 


000241 








CLC 




[THIS WILL SHIFT 


006137 


001162 






ROL 


OCT 


,SUR VALUE ONE 


000241 








CLC 




PLACE LEFT 


006137 


001162 






ROL 


OCT 


OCTAL . 


063737 


001160 


001162 


TK5: 


ADD 


CHAR, OCT 


NEW VALUE OF SUR 


000503 








BR 


TK6 


RETURN FROM INTERRUPT 


005737 


001152 




DGTS: 


TST 


DIGITS iSUR VALUE CHANGED ? 


001470 








BEQ 


TK3 


NO-RETURN .NO CHANGE TO bUR 


013737 


001162 


000176 




MOV 


OCT.SUREG 


YES-ENTER NEU SUR VALUE 


000464 








BR 


TK3 


RETURN FROM INTERRUPT 



E4 
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SEQ 0043 



1542 

1543 

1544 

1545 

1546 

1547 

1546 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 



005216 

005224 

005232 

005240 

005242 

005246 

005250 

005256 

005260 

005262 

005266 

005270 

005272 

005300 

005302 

005304 

005312 

005314 

005316 

005320 

005324 

005326 

005330 

005332 

0053-4 

005336 

005340 

005342 

005346 

005350 

005352 

005354 

005356 

005360 

005362 

005364 

005366 

005372 

005374 

005376 

005402 

005406 

005410 

005412 

005414 

005416 

005420 

005422 

005424 
005430 
005434 



00S440 
005442 



017737 

042737 

022737 

001414 

105777 

100375 

013777 

104000 

006614 

005737 

001001 

000442 

012737 

104000 

006612 

022737 

001411 

104000 

006656 

004537 

177570 

006672 

000006 

104000 

006672 

104000 

006620 

004537 

000176 

006647 

000006 

104000 

006647 

104000 

006630 

000404 

005037 

104000 

006612 

005037 

005037 

012605 

012604 

012603 

012602 

012601 

012600 

000002 

012746 
012746 
000137 



104000 
007350 



173574 
177600 
000007 

173552 

001160 

001154 

000001 

000176 

004466 



001160 
001160 
001160 



173536 

001154 
001004 



CNTRLG: 



UT3: 



TYPSUR ! 



TYPSWX: 



004466 



001154 



001152 
001162 



TK3: 
TK4: 

TK7: 

TK6: 



000340 
005440 
001306 



TK9: 



MOV 

BIG 

CMP 

BEQ 

TSTB 

BPL 

MOV 

EMT 

MES22 

TST 

BNE 

BR 

MOV 

EMT 

MES21 

CMP 

BEQ 

EMT 

MES26 

JSR 

177570 

MES27 

6 

EMT 

MES27 

EMT 

MES23 

JSR 

176 

MES2S 

6 

EMT 

MES25 

EMT 

nES24 

BR 

CLR 

EMT 

MES21 

CLR 

CLR 

MOV 

MOV 

MOV 

MOV 

MCV 

MOV 

RTI 

MOV 
MOV 
JMP 



9TKB . CHAR 

#177600. CHAR 

#7. CHAR 

TYPSWR 

STPS 

WT3 

CHAR.aTPB 
*0 

SIGNAL 
TYPSWR 
TK7 

»1 , SIGNAL 
*0 

0176. SUR 

TYPSWX 

*0 

K5.C0NV 



♦ 0 
*0 

KS.CONV 

♦0 

♦0 

TK7 

SIGNAL 

♦0 

DIGITS 
OCT 

(SP)*.i*5 
CSP)*.it4 
(SP)*.« 
(SP)*.*2 
(SP)*.*1 
(SP}*.«0 



#340. -(SP) 

#.«10.-CSP) 

SETUP 



GET CHARACTER 
STRIP OFF PARITY BIT 
CONTROL -G INPUT ? 
YES-PRINT HEADER 
TTY PRINTER READY ? 
NO -WAIT 

PRINT CHARACTER 
; PRINT "?" 

BAD VALUE 7 

YES-PRINT HEADER 

RETURN FROM INTERRUPT 

SET FLAG: CONTROL -G ENTERED 

CR 

H/W SW REG THERE? 
NO. SKIP H/W REG DUMP 

sH/W SW REG HDR 



I PRINT HEADER 

i CONVERT SWR VALUE TO ASCII 

: PRINT SWR VALUE 
(PRINT HEADER 

; RETURN FROM INTERRUPT 

; CLEAR CONTROL -G FLAG 

; PRINT LINE FEED AND CARRIAGE RETURN 

CLEAR DIGIT COUNT 
CLEAR SWR INPUT 
RESTORE REGISTERS 



J RETURN FROM INTERRUPT 

; ABORT AND GO TO 200. RESTART 



Help - reached by <ctrl>H 

TKHLP: EMT *0 
HLPO 



I 
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1599 005444 


104000 


EMT 


• 0 


1600 005446 


007420 


HLPl 




1601 005450 


104000 


EMT 


♦ 0 


1602 005452 


007514 


HLP2 




1603 005454 


104000 


EMT 


♦ 0 


1604 005456 


007541 


HLP3 




1605 005460 


104000 


EMT 


♦ 0 


1606 005462 


007611 


HLP4 




1607 005464 


104000 


EMT 


♦ 0 


1608 005466 


007672 


HLP4A 




1609 005470 


104000 


EMT 


*0 


1610 005472 


007752 


HLP5 




1611 005474 


104000 


EMT 


♦0 


1612 005476 


010040 


HLP6 




1613 005500 


104000 


EMT 


♦ 0 


1614 005502 


010100 


HLP7 




1615 005504 


104000 


EMT 


♦ 0 


1616 005506 


010163 


HLP8 




1617 005510 


000726 


BR 


TK3 


1618 









G4 
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1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 

1629 005512 

1630 005516 

1631 005523 

1632 005533 

1633 005542 

1634 005551 

1635 005556 

1636 005567 

1637 005571 

1638 005630 

1639 005673 
1640 

1641 

1642 005731 

1643 006007 

1644 006063 

1645 006104 

1646 006114 

1647 006153 
164S 006167 

1649 006230 

1650 006246 

1651 006274 

1652 006347 
1653 

1654 006416 

1655 006457 

1656 006475 

1657 006504 
1658 

1659 

1660 006570 

1661 006607 
1662 

1663 006612 

1664 006614 

1665 006620 

1666 006630 

1667 006647 

1668 006656 

1669 006672 
1670 

1671 006704 

1672 006756 

1673 007026 

1674 007120 

1675 007211 

1676 007305 



MACRO M1U3 12-MAR-85 15:38 



SEQ 0045 



SBTTL LOCAL MESSAGES 

NLIST BEX 

EVEN 

DEVICE "ESCAPE SEQUENCES" 











AND OPERATOR MESSAGES. 






143 


• 

DARl : 


■ n^wj.^ 


^oO''>ic\ s MRS b arc you r 


033 


133 


060 


DAR2: 




^ o^'' N L uc \ p MiiBx ore you i 


033 


133 


077 


LCP3: 






033 


4 TT 

133 


066 


LCP4 : 


ASrT7 


^ > I o t cy ^ fvispxay paxwcrn 


ATT 

033 


\ TT 

133 


A££ 

066 


LCP3: 


ACrT7 


C > \ r A ■ 1 wV ■ Ri in PAnf i rimrsr^M ^^eV Ar% ^ 1 •» m^v* 


ATT 

033 


1 TT 

133 


065 


DMK6 : 


ASCIZ 




126 


1 AC 
103 


1 oo 

lee 


LCr7 : 


.ASCIZ 


W/rRTFTFDV •<anfiw«r*> T'n hk (Cf%\fsw* Pv«!nf-*ff*1 


AO 1 

Oel 


AAA 
OOO 




A ADA . 

0WK9: 


. ASCIZ 


<21> iXON 


AAQ 
043 


1 Oil 


1 AC 

103 


1 TOl : 


. Asciz 


\i»TEST 1. SERIAL LINE UNIT TEST\ 


0«lj 


1 OA 

Id'* 


1 AC 
1U3 


1 TUe : 


! ASCIZ 


\*TEST 2 COLOR PRINTER 'SElF' TESTV 




1 OA 


1 A<: 
1U3 


T VAT . 
1 TU3 : 


.ASCIZ 


\i*TEST 3. PRINTER DISPLAY TEST\ 


O'JD 


1 AC 


1 oo 
lee 


ETIM: 


.ASCIZ 


\iiERROR - TIMEOUT, WAITING FOR INPUT, RESPONSES 




1 AC 


lee 


ETIMO 


.ASCIZ 


\i*ERROR - TIMEOUT, WAITING FOR OUTPUT, DONEI\ 


045 


040 


055 


HEDl: 


.ASCII 


/i* - ERROR NUMBER / 


040 


040 


040 


HED2: 


.ASCIZ 


/ 


043 




1 3d 
leH 


MESOO 


.ASCIZ 


/ttSTARTING EVFU PRINTING TESTS*/ 






1 AT 

lUd 


MESl: 


.ASCIZ 


NWCZLCP-A-ON 


f\AtZ 


1 AT 

J.Od 


1 T3 


MES2: 


.ASCIZ 


NltCZLCPO COLOR PRINTER DIAGNOSTICN 








nESl: 


.ASCIZ 


XMJNIT IS TEXl(\ 




lee 


1 AC 
1U3 


nES4: 


.ASCIZ 


\MESTART ADDRESS 200it\ 


f\AK 




13 ' 


MESS: 


.ASCIZ 


\lMoM begins the Color Printer D i agnost i cifitv 


f\A^ 




13 1 


MES6: 


.ASCIZ 


\i(Color Printer Diagnostic CompletedMV 








.EVEN 


J 


leU 


IDc 


MES7: 


.ASCIZ 


\*tPress Any Key to Restart test..\ 




1 


1 1 A 
lio 


MES8: 


.ASCII 


\i(END OF PASS: \ 


nAn 


AAA 


AAA 


MES9: 


.ASCIZ 


\ *\ 




lew 




MESIO; .ASCIZ 


\l(PAUSE (HALT) ON ERROR, Press Any Key to Continue..\ 










.EVEN 






A1 3 
VXc 


1 3A 


MES14 


.ASCIZ 


<12><12>\TEST NUMBER \ 




AAA 


AAA 
vvV 


MES20A: .ASCIZ 


/ / 








.EVEN 






045 


000 




MES21 


.ASCIZ 


/*/ 


040 


077 


045 


MES22 


.ASCIZ 


/ ?it/ 


123 


127 


122 


MES23 


.ASCIZ 


/SWR « / 


040 


040 


040 


MES24 


: .ASCIZ 


/ NEW SWR - / 


040 


040 


040 


MES25 


: .ASCIZ 


/ / 


050 


110 


057 


MES26 


: .ASCIZ 


\(H/W SWR • \ 


040 


040 


040 


MES27 


. ASCIZ 


\ ), \ 










.EVEN 




045 


105 


122 


ERMSl 


.ASCIZ 


\KERROR - SERIAL LINE NOT AT THIS ADORESSKN 


045 


105 


122 


ERMS2 


.ASCIZ 


\KERROR - SERIAL LINE "LOOPBACK" FAILED*\ 


045 


105 


122 


ERMSS 


. ASCIZ 


\KERROR - UNEXPECTED RESPONSE, TO "WHAT ARE YOU?" REQUESTKN 


045 


105 


122 


ERMS4 


.ASCIZ 


NtfERROR - UNEXPECTED RESPONSE, TO "POWER-UP" (SELF) TESTKN 


045 


105 


122 


ERMS5 


.ASCIZ 


NKERROR - UNEXPECTED RESPONSE. TO "POWER-UP" STATUS REQUESTK\ 


045 


117 


125 


ERMS6 


. ASCIZ 


NKOUTPUT. SERIAL LINE STATUS ERRORKN 



H4 



czlcpa color printer diagnostic 
local messages 
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SEQ 0046 



1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 



007350 
007420 
007514 
007541 
007611 
007672 
007752 
010040 
010100 
010163 



045 
045 
045 
045 
045 
045 
045 
045 
045 
045 



045 
040 
061 
040 
040 
040 
040 
040 
040 
040 



040 KlpO 

040 hlpl 

065 hlp2 

174 hlp3 

174 hlp4 

174 hlp4a 

174 hlp5 

174 hlp6 

174 hlp7 

174 hlp8 



. asc I z 
. asc i z 
. asc i z 
. asc i z 
. asc i z 
.asciz 
. asc i z 
. asc i z 
.asciz 
. asc I z 



\HH HELP, Switch Register Bit def inition\ 

\* (Note: <CTRL>G - Allows change to "Software" Switch Rea)\ 
\i<15)14.13.12,. ,2.1.0\ 



\K ) 
\« > 



> > ) >_Loop on SLU Test 1\ 
) > >_Loop on Printer "Self" Test 2\ 

> >_Loop on Printer Display Test 3\ 
>_Pau8e on Error, and Pause at End of Pass\ 

.Inhibit Error Reports\ 
.Inhibit Test Number and End of Pass ReportsN 



\* >_Loop On Error (otherwise continue)*\ 



14 



CZLCPA COLOR PRINTER DIAGNOSTIC 
SERIAL LINE SETUP ROUTINES 



MACRO M1113 12-MAR'8S 15:38 



SEQ 0047 



1689 








1690 








1691 








1692 








1693 








1694 








1695 








1696 


010234 






1697 


010234 


005037 


001120 


1698 


010240 


005037 


001066 


1699 


010244 


005037 


001070 


1700 


010250 


005037 


001106 


1701 


010254 


005037 


001102 


1702 


010260 






1703 








1704 








1705 


010260 


042777 


000100 


1706 








1707 


010266 


012737 


000010 


1708 


010274 


104000 




1709 


010276 


015723 




1710 


010300 


104000 




1711 


010302 


015760 




1712 


010304 


104000 




1713 


010306 


016006 




1714 


010310 


104000 




1715 


010312 


016034 




1716 


010314 


105777 


170502 


1717 


010320 


100375 




1716 


010322 


117700 


170470 


1719 


010326 


105777 


170466 


1720 


010332 


100375 




1721 


010334 


110077 


170454 


1722 


010340 


042700 


177700 


1723 


010344 


120027 


000061 


1724 


010350 


001422 




1725 


010352 


120027 


000062 


1726 


010356 


001007 




1727 


010360 


004737 


013642 


1728 


010364 


020027 


123456 


1729 


010370 


001733 




1730 


010372 


000137 


011340 


1731 


010376 


122700 


000012 


1732 


010402 


001412 




1733 


010404 


122700 


000015 


1734 


010410 


001407 




1735 


010412 


000137 


010260 


1736 








1737 








1738 








1739 


010416 


004737 


013642 


1740 


010422 


020027 


123456 


1741 


010426 


001714 




1742 


010430 


012737 


000001 


1743 


010436 


005037 


001102 


1744 


010442 


004737 


014066 


1745 


010446 


012737 


000004 



SBTTL SERIAL LINE SETUP ROUTINES 
EVEN 

THIS SUBROUTINE SETS UP THE SERIAL LINE INTERFACE IF THERE IS ONE 

****************************************************************************** 

SETSER: 



20*: 



30*: 



40*: 



42*: 



45*: 

: 
{ 

47*: 
49*: 



CLR 


DZCSRH 


CLEAR DZ'S CSR HOLDER 


CLR 


DZTCR 


CLEAR PSEUOO OZ TCR REG 


CLR 


DZLPR 


CLEAR PSEUOO OZ LPR REG 


CLR 


DLHERE 


CLEAR DL'S PRESENCE AREA 


CLR 


BRATE 


CLEAR DZ'S BAUD RATE HOLDER 


t CMP 


SERSU.«1 


HAVE UE ALREADY SET UP SLU 


6NE 


30* 


BR, NOT SET UP 


JMP 


200* 


LEAVE ROUTINE ALREADY SET UP 


BIC 


OlOO.aTKS 


SHUT OFF IE IN TTY 


MOV 


«1,SERSU 


SET SU TO BEEN SET UP 


MOV 


«10.MAINTB 


PRELOAD BIT 3 SET 




*0 


PRINT MESSAGE CALL 


ncNUl 






tni 


*0 : PRINT MESSAGE CALL 


ncNUe 






cnT 


*0 : PRINT MESSAGE CALL 


i4dkU IT 

ntNU3 






CMT 

tn 1 


*0 :PRINT MESSAGE CALL 








TCTO 
I SID 


9TKS 


READ TTY'S STATUS 


ODl 

orL 


40* 


BR. IF NOT DONE 


nuVH 


aTKB.ltO 


(PICK UP CHAR. TYPED 


TCTB 


OTPS 


iCHECK FOR BUSY 


DrL 


42* 


,LOOP IF TTY IS BUSY (BR) 


Move 


K0.8TPB 


•ECHO CHARACTER TO TTY 


BIC 


#177700.1*0 


■ONLY 6 BITS ALLOUED 


CMPB 


KG, #61 


iUAS IT AN ASCII 1 


BEQ 


47* 


iBR. IF IT WAS (OLll SEL.) 


LrlrD 


l*0.«62 


,UAS IT AN ASCII 2 




451 




ICD 


*7.GETCR 


[GO GET LF OR CR 


v.nr 


K0.«1234S6 


[CHECK FOR BAD INPUT 




30* 


.TRY AGAIN BAD INPUT (NOT CR) 


IMD 


300* 


iBR. IF IT WAS (DZll SEL.) 


CMPB 


«12.lt0 


,CHK FOR <LF> DEFAULT 


BEQ 


49* 


BR. IF DEFAULT (DLll SEL.) 


CMPB 


•15.J*0 


[CHK FOR <CR> DEFAULT 


BEQ 


49* 


,BR. IF DEFAULT COLll SEL.) 


JMP 


30* 


•WASN'T CORRECT TYPE-IN 


IT'S A 


OLll 




JSR 


*7,GETCR 


GO GET LF OR CR 


CMP 


ttO. #123456 


CHECK FOR BAD INPUT 


BEQ 


30* 


TRY AGAIN BAD INPUT (NOT CR) 


MOV 


«1.0LHERE 


SHOU DEC PRESENCE 


CLR 


BRATE 


JUST TO BE SURE 


JSR 


*7,CLRTTY 


PICK UP PENDING CHARACTERS 


MOV 


«4,MAINTB 


PRELOAD BIT # 2 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR 85 
SERIAL LINE SETUP ROUTINES 



1746 010454 


104000 








EMT 


1747 010456 


016070 








MENUDl 


1748 010460 


104000 








EMT 


1749 010462 


016156 








MENUD2 


1750 010464 


104000 








EMT 


1751 010466 


016221 








MENU03 


1752 010470 


104000 








EMT 


1753 010472 


016263 








MENU04 


1754 010474 


105777 


170322 




5U: 


TSTB 


1755 010500 


100375 








BPL 


1756 010502 


117700 


170310 






MOVB 


1757 010506 


105777 


170306 




S2«: 


TSTB 


1758 010512 


100375 








BPL 


1759 010514 


110077 


170274 






MOVB 


1760 010520 


042700 


177700 






6IC 


1761 010524 


120027 


000061 






CMPB 


1762 010530 


001424 








BEQ 


1763 010532 


120027 


000062 






CMPB 


1764 010536 


001011 








BNE 


1765 010540 


004737 


013642 






JSR 


1766 010544 


020027 


123456 






CMP 


1767 010550 


001727 








BEQ 


1768 010552 


005037 


001122 






CLR 


1769 010556 


000137 


010614 






JMP 


1770 010562 


122700 


000012 




531: 


CMPB 


1771 010566 


001412 








BEQ 


1772 010570 


122700 


000015 






CMPB 


1773 010574 


001407 








BEQ 


1774 010576 


000137 


010430 






JMP 


1775 








t 




1776 010602 


004737 


013642 




541: 


JSR 


1777 010606 


020027 


123456 






CMP 


1778 010612 


001706 








BEQ 


1779 010614 


012737 


000001 


001106 


551: 


NOV 


1780 010622 


005037 


001102 






CLR 


1781 010626 


004737 


014066 






JSR 


1782 












1783 010632 


104000 








EMT 


1784 010634 


016317 








DLCSRM 


1785 010636 


105777 


170160 




56$: 


TSTB 


1786 010642 


100375 








BPL 


1787 010644 


117700 


170146 






MOVB 


1788 010650 


105777 


170144 




57 


TSTB 


1789 010654 


100375 








BPL 


1790 010656 


110077 


170132 






MOVB 


1791 010662 


042700 


177700 






BIC 


1792 010666 


122700 


000012 






CMPB 


1793 010672 


001551 








BEQ 


1794 010674 


122700 


000015 






CMPB 


1795 010700 


001S46 








BEQ 


1796 010702 


122700 


000061 






CMPB 


1797 010706 


001403 








BEQ 


1798 010710 


122700 


000067 






CMPB 


1799 010714 


001332 








BNE 


1600 010716 


005037 


001124 




591: 


CLR 


1801 010722 


052737 


100000 


001124 




BIS 


1802 010730 


004737 


013560 






JSR 



J4 

15:38 



SEQ 0048 



♦ 0 

♦ 0 
*0 

♦ 0 

STKS 
511 

STKB.KO 
aTPS 
52 « 

KO.STPB 
«1 77700,1*0 
tf0,«61 
54 « 

«(0,«62 
531 

«<7,6ETCR 

K0.«123456 

491 

MAINTB 
55* 

*12.K0 
55# 

«1S,K0 

SSI 

491 

KT.GETCR 
^0. #123456 
491 

tfl.OLHERE 

BRATE 

*7,CLRTTY 

.0 

8TKS 
561 

STKB.KO 

8TPS 

57* 

KO.STPB 
#177700, KO 
#12, KO 
60« 

#15. KO 
601 

#61. KO 
591 

#67. KO 
54« 

WORK 

#100000, WORK 
K7.GET0CT 



; PRINT MESSAGE CALL 

i PRINT MESSAGE CALL 

J PRINT MESSAGE CALL 

; PRINT MESSAGE CALL 

J READ TTY'S STATUS 

iBR, IF NOT DONE 

iPICK UP CHAR. TYPED 

i CHECK FOR BUSY 

;LOOP IF TTY IS BUSY (BR) 

sECHO CHARACTER TO TTY 

;ONLY 6 BITS ALLOWED 

:UAS IT AN ASCII 1 

jBR, IF IT UAS (OLll SEL.) 

:UAS IT AN ASCII 2 

;G0 GET LF OR CR 

J CHECK FOR BAD INPUT 

jTRY AGAIN BAD INPUT (NOT CR) 

;N0 MAINT FEATURE 

* BR 

ICHK FOR <LF> DEFAULT 

jBR, IF DEFAULT (DLll SEL.) 

sCHK FOR <CR> DEFAULT 

,BR, IF DEFAULT (OLll SEL.) 

sUASN'T CORRECT TYPE-IN 

;G0 GET LF OR CR 

; CHECK FOR BAD INPUT 

:TRY AGAIN BAD INPUT (NOT CR) 

:SHOU DEC PRESENCE 

:JUST TO BE SURE 

:PICK UP PENDING CHARACTERS 

! PRINT MESSAGE TO TTY 

;Cm TTY IN STATUS 

:UAIT FOR DONE 

:PICK UP CHARACTER TYPED IN 

{CHECK FOR BUSY 

jLOOP IF TTY IS BUSY (BR) 

sECHO CHARACTER 

jONLY 6 BIT PASS 

sWAS DEFAULT SEL. <LF> 

;BR, IF DEFAULT SELECTED 

iUAS DEFAULT SEL. <CR> 

;BR. IF DEFAULT SELECTED 

:UAS IT AN ASCII 1 

:BR. IT UAS A 1 

sUAS IT AN ASCII 7 

iBR, IF IT WASN'T A 1 OR 7 

i CLEAR WOKK AREA 

sALL THAT FOR BIT 15 

:G0 GET AN OCTAL NUMBER 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 
SERIAL LINE SETUP ROUTINES 



0 AAV Ma jk^V^ 

1803 010734 


020027 


123456 


CMP 


1804 010740 


001720 




BEQ 


1805 010742 


000241 




CLC 


1806 


000014 




.REPT 


1807 






ROL 


1808 






.ENOR 


010744 


MMC « MM 

006100 




ROL 


010746 


AA£ t AA 

006100 




ROL 


010750 


AA£ t AA 

006100 




ROL 


A 4 A^C 

010752 


AA£ t AA 
006100 




ROL 


At 

010754 


AA£ t AA 
OOOlOO 




ROL 


At A^C^ 

010730 


AA& t AA 

OOolOO 




ROL 


At A7£A 
OlO rDU 


AA^ t AA 
OOolOO 




BAl 

ROL 


/* 1 A7ilO 


AA& 1 AA 
UOOlOO 




nAi 

ROL 


01 U /OH 


AA£. 1 AA 
006100 




ROL 


At /\^C£i 
UlU f OO 


f\f\C 1 AA 




ROL 


At A77A 
Olv / ' U 


AA£ 1 AA 

OOolOO 




ROL 


A1 A"y70 

01 w / ta 


AA& 1 AA 
000100 




DAI 

nOL 


I0U7 010 fit 


A&AAT7 


AA 1 1 OA 
001 124 


AAA 

ADD 


1 A 1 A All AAA 
lOlU UllOOU 


AAA7T7 


A 1 TQAA 
U1330U 


ICD 


1 A 1 1 All AAA 

loll uIIOOh 


A0AA07 


le»430 


Cnr 


1A10 A11A1A 
IBlc UllUlU 


AAl £."7 A 




DCA 


1 A1 V A1 1 Al 0 

1013 OllOltf 


AAAOA t 






1 A 1 A 
1014 


AAAA1 1 
00001 1 




DCDT 


1 Al C 
1013 






DAI 

KOL 


1 A 1 C 








At 1 Al A 

011014 


AA& 1 AA 




OAI 

HOL 


All Al C 


AAJl 1 AA 




DAI 


At 1 AOA 


AA^ 1 AA 




DAi 


All Ad9 


AA£ 1 AA 




oni 

KUL 


All 


nne, 1 aa 




oni 

nUl. 


All AOil 


AAiL 1 AA 

UUOIUU 




Dni 

Km, 


At 1 ATA 


AAA 1 on 

UUOlUv 




ft UL 


OllUOc 


AAA 1 AA 
UUOIUU 




oni 

nUl. 


Al 1 ATA 

011034 


AAA! AA 
UUOIUU 




oni 

nUL 


1 Al "7 Al 1 ATJ% 


A&AAT? 
vOUvA ( 


AAl 1 9 A 

wxict 


Ann 


1 Al A Al 1 AA9 

lOle wllO^e 


UU# 131 


A 1 TCAA 
Ul 9 jOU 


tlSK 


1 A 1 0 All A^i^ 

1019 01 low 


A3AA37 
UeUUe ' 


1 OXA^ti 
leSHSO 


PMD 


1 A OA A 1 1 AC 0 

lOeO OllOSe 


Ant £CT 

UU1039 




DCU 


1 A 0 1 All AI«A 

lOcl OllOSI 


AAA9A 1 






1 A90 

lOc^ 


AAAAAA 
UUUUvO 




DCDT 


lOe J 






Dni 

nUC 


1 AOA 

lOe^ 








All ACil 


AAC 1 AA 

UUOIUU 




Dm 

NUL. 


All AJ^A 


AAA 1 AA 
UUOIUU 




oni 


All i\£^0 


AAAl AA 
UUOIUU 




oni 

KUL 


All Ai^A 


AAA 1 AA 
UUOIUU 




oni 

NUL 


All A&A 


AAA 1 AA 
UUOIUU 




oni 

KUL 


All A7A 


AAA 1 AA 
UUOIUU 




DAI 
KUL 


1 A3C All A'73 


AAAAT7 

uouuo > 


AA 1 1 OA 
001 12* 


AAA 
nUU 


1SP6 011076 






.JSR 


1827 011102 


020027 


123456 


CMP 


1628 011106 


001635 




BEQ 


1629 011110 


000241 




CLC 


1630 


000003 




.REPT 


1831 






ROL 


1832 






.ENOR 



: CHECK FOR NON-OCTAL • 

:BR. IN NU GOOD 0 

: CLEAR CARRY FQR ROTATE 

{ROTATE RO 

iROlATE RO 

i ROTATE RO 

; ROTATE RO 

:ROTATE RO 

; ROTATE RO 

:ROTATE RO 

i ROTATE RO 

i ROTATE RO 

: ROT ATE RO 

.-ROTATE RO 

: ROTATE RO 

; ROTATE RO 

;"0R" THE BITS IN 

;G0 GET AN OCTAL NUMBER 

; CHECK FOR NON- OCTAL # 

:BR, IN NO GOOD 9 

: CLEAR CARRY FOR ROTATE 

; ROTATE RO 

i ROTATE RO 

; ROTATE RO 

: ROT ATE RO 

: ROTATE RO 

; ROTATE RO 

i ROTATE RO 

: ROTATE RO 

i ROTATE RO 

{ROTATE RO 

J -OR" THE BITS IN 

sGO GET AN OCTAL NUMBER 

i CHECK FOR NON- OCTAL « 

:BR. IN NO GOOD 0 

; CLEAR CARRY FOR ROTATE 

.•ROTATE RO 

! ROTATE RO 

: ROTATE RO 

: ROT ATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{"OR- THE BITS IN 

{GO GET AN OCTAL NUMBER 

{CHECK FOR NON-OCTAL 9 

{BR. IN NO GOOD » 

{CLEAR CARRY FOR ROTATE 



{ROTATE RO 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR- 
SERIAL LINE SETUP ROUTINES 





011112 


006100 








ROL 




011114 


006100 








ROL 




011116 


006100 








ROL 


1833 


011120 


060037 


001124 






ADO 


1834 


011124 


004737 


013560 






JSR 


1835 


011130 


020027 


123456 






CMP 


1836 


011134 


001622 








BEO 


1837 


011136 


060037 


001124 






ADD 


1838 


011142 


013737 


001124 


001076 




MOV 


1839 


011150 


013737 


001124 


001100 




MOV 


1840 


011156 


062737 


000002 


001100 




ADO 


1841 


011164 


013737 


001124 


001000 




MOV 


1842 


011172 


062737 


000004 


001000 




ADO 


1843 


011200 


013737 


001000 


001002 




MOV 


1844 


011206 


062737 


000002 


001002 




ADD 


1845 


011214 


000426 








BR 


1846 


011216 


013737 


001032 


001000 


60(: 


MOV 


1847 


011224 


062737 


000004 


001000 




ADD 


1848 


011232 


013737 


001032 


001076 




MOV 


1649 


011240 


013737 


001032 


001100 




MOV 


1650 


011246 


062737 


000002 


001100 




ADO 


1651 


011254 


013737 


001000 


001002 




MOV 


1652 


011262 


062737 


000002 


001002 




ADD 


1853 


011270 


000407 






651: 


BR 


1854 


011272 


004737 


013642 




JSft 


1855 


011276 


020027 


123456 






CMP 


1856 


011302 


001004 








BNE 


1857 


011304 


000137 


010602 






JMP 


1656 


011310 


004737 


014066 




67$: 


JSA 


1659 


011314 








66t: 


JSR 


1660 


011314 


004737 


014364 






1661 


011320 


004737 


014066 




96$: 


JSR 


1662 


011324 


052777 


000100 


167470 


99i : 


BIS 


1663 


011332 


104000 








EHT 


1664 


011334 


016543 






200* : 


OLCRLF 


1665 


011336 


000207 






RTS 


1666 










> 


IT'S A 


1667 










1 


1866 










: 




1869 


011340 








300»: 


JSR 


1670 


011340 


004737 


014066 




3501: 


1671 


011344 


104000 








EMT 


1872 


011346 


016431 








OZCSRM 


1873 


011350 


005037 


001106 




355 >: 


CLR 


1674 


011354 


105777 


167442 




TSTB 


1675 


011360 


100375 








BPL 


1676 


011362 


117700 


167430 






novB 


1677 


011366 


105777 


167426 




356 »: 


TSTB 


1676 


Oil 372 


100375 








BPL 


1879 


011374 


110077 


167414 






HOVB 


1880 


011400 


042700 


177700 






6IC 


' 1661 


011404 


122700 


000012 






CNPB 


1862 


011410 


001545 








BCQ 


1663 


011412 


122700 


000015 






CHPB 


1664 


011416 


001542 








BEO 


186S 


011420 


122^00 


000061 






CMPB 


1886 


011424 


001403 








BEO 



L4 

15:36 



SCO 0050 



KO 
«0 
«0 

KO.UORK 
*7.GET0CT 
i»0. #123456 
54 < 

KO.UORK 

UORK.DLLPS 

UORK.DLRBUF 

«2.DLRBUF' 

UORK.LPS 

•4. LPS 

LPS.LPB 

«2.LPB 

65 » 

DLCSRC.LPS 
•4. LPS 

OLCSRC.OLLPS 

OLCSRC.DLRBUF 

•2.0LRBUF 

LPS.LPB 

•2.LPB 

67$ 

tf7.6ETCR 
m). #123456 
66$ 
54$ 

iI7.ClRTTY 

#7,0LSET 
«7.CLRTTY 
•100.8TKS 
*0 

tf7 

DZll 



*7,CLRTTY 
*0 

DLHERE 

BTKS 

355$ 

BTKB.tfO 

STPS 

356$ 

M.8TPB 

#177700, «0 

#12.tf0 

360$ 

#15.1(0 

360$ 

•61. «0 

357$ 



■.ROTATE RO 

! ROT ATE RO 

iROTATE RO 

["OR" THE BITS IN 

;G0 GET AN OCTAL NUMBER 

: CHECK FOR NON-OCTAL » 

;BR. IN NO GOOD # 

,"0R" THE BITS IN 

I ADDRESS OF DL'S RECV STATUS 

: ADDRESS OF DL'S RECV BUF 

: ADDRESS OF DL'S RECV BUFFER 

;NEW ADDRESS FOR CSR 

jMUS* POINT TO TRANSMITTER BUF 

sGET STATUS ADDRESS 

J POINT TO DATA BUFFER ADDRESS 

;SKIP OVER DEFAULT 

jMOVE DEFAULT CSR IN 

J TRANSMITTER STATUS 

: ADDRESS OF DL'S RECV STATUS 

! ADDRESS OF DL'S RECV BUF 

; ADDRESS OF DL'S RECV BUFFER 

iSET UP THE DATA BUFFER 

iSET TO CORRECT ADDRESS 

:SKIP OVER CR GET 

:G0 GET LF OR CR 

: CHECK FOR BAD INPUT 

iBR. IF CR RECEIVED (GOOD) 

;JMP. IF BAD CHARACTER RECO. 

:PICK UP PENDING CHARACTERS 

iFINO OUT UHAT TYPE OLll 
{PICK UP PENDING CHARACTERS 
:TURN BACK ON 
.•MESSAGE ADDRESS 
{MESSAGE ADDRESS 
{RETURN TO CALLEE 



{PICK UP PENDING CHARACTERS 
{PRINT MESSAGE TO TTY 

{JUST TO BE SURE 

{CHK TTY IN STATUS 

{UAIT FOR DONE 

{PICK UP CHARACTER TYPED IN 

{CHECK FOR BUSY 

{LOOP IF TTY IS BUSY (BR) 

{ECHO CHARACTER 

{ONLY 6 BIT PASS 

{UAS DEFAULT SEL. <LF> 

;BR. IF DEFAULT SELECTED 

sUAS DEFAULT SEL. <CR> 

{BR. IF DEFAULT SELECTED 

(UAS IT AN ASCII 1 

{BR. IT UAS A 1 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO nillS 12-nAR 05 
SERIAL LINE SETUP ROUTINES 

1807 011426 122700 000067 CHPB 

iaS8 011432 001342 BNE 

1989 011434 042700 177770 357»: BIG 

1890 011440 005037 001124 CLR 

1891 011444 052737 100000 001124 BIS 

1892 011452 004737 013560 JSR 

1893 011456 020027 123456 CNP 

1894 011462 001726 BEQ 

1895 011464 000241 CLC 

1896 000014 .REPT 

1897 ROL 

1898 .ENOR 
011466 006100 ROL 
011470 006100 ROL 
011472 006100 ROL 
011474 006100 ROL 
011476 006100 ROL 
011500 006100 ROL 
011502 006100 ROL 
011504 006100 ROL 
011506 006100 ROL 
011510 006100 ROL 
011512 006100 ROL 
011514 006100 ROL 

1899 011516 060037 001124 AOO 

1900 011522 004737 013560 JSR 

1901 011526 020027 123456 CMP 

1902 011532 001702 BEQ 

1903 011534 000241 CLC 

1904 000011 .REPT 

1905 ROL 

1906 .ENDR 
011536 006100 ROL 
011540 006100 ROL 
011542 006100 ROL 
011544 006100 ROL 
011546 006100 ROL 
011550 006100 ROL 
011552 006100 ROL 
011554 006100 ROL 
011556 006100 ROL 

1907 011560 060037 001124 AOO 

1908 011564 004737 013560 JSR 

1909 011570 020027 123456 CMP 

1910 011574 001661 BEQ 

1911 011576 000241 CLC 

1912 000006 .RCPT 

1913 ROL 

1914 .ENOR 
011600 006100 ROL 
011602 006100 ROL 
011604 006100 ROL 
011606 006100 ROL 
011610 006100 ROL 
011612 006100 ROL 

1915 011614 060037 001124 ADO 

1916 011620 004737 013560 JSR 



:UAS IT AN ASCII 7 

:BR. IF IT UASN'T A 1 OR 7 

:ONLy 3 BITS NEEDED 

: CLEAR WORK AREA 

:ALL THAT FOR BIT 15 

:PICK UP AN OCTAL NUMBER 

i CHECK FOR BAD DATA 

tBR. IF DATA WAS BAD 

; CLEAR CARRY FOR ROTATE 

: ROT ATE RO 

{ROTATE RO 

: ROTATE RO 

: ROTATE RO 

: ROT ATE RO 

{ROTATE RO 

J ROTATE RO 

: ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{-OR- THE BITS IN 

{CO GET AN OCTAL NUMBER 

{CHECK FOR NON-OCTAL « 

{BR. IN NO GOOD • 

{CLEAR CARRY FOR ROTATE 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{-OR- THE BITS IN 

{GO GET AN OCTAL NUMBER 

{CHECK FOR NON-OCTAL 0 

{BR. IN NO GOOD • 

{CLEAR CARRY FOR ROTATE 

{ROTATE RO 

(ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{ROTATE RO 

{■OA THE BITS IN 

(GO GET AN OCTAL N^EO 



N4 



CZLCPA COLOR PRINTER DIAGNOSTIC 
SERIAL LINE SETUP ROUTINES 



MACRO M1113 12-MAR 85 15:36 



SEQ 005^ 



1917 


011624 


020027 


123456 






cnp 


K0,«1234S6 


I CHECK FOR NON- OCTAL • 


1918 


011630 


001643 








BEQ 


3501 


sBR, IN NO GOOD • 


1919 


011632 


000241 








CLC 




; CLEAR CARRY FOR ROTATE 


1920 




000003 








.REPT 


3 




1921 












ROL 


«0 


;ROTATE RO 


1922 












.ENOR 








011634 


006100 








ROL 


KG 


sROTATE RO 




011636 


006100 








ROL 


KG 


{ROTATE RO 




011640 


006100 








ROL 


KG 


: ROT ATE RO 


1923 


011642 


060037 


001124 






AOO 


M.UORK 


J "OR" THE BITS IN 


1924 


011646 


004737 


013560 






JSR 


*7,GET0CT 


I GO GET AN OCTAL NUMBER 


1925 


011652 


020027 


123456 






CMP 


«0.»123456 


: CHECK FOR NON-OCTAL « 


1926 


011656 


001630 








BEQ 


3504 


)BR. IN NO GOOD • 


1927 


011660 


060037 


001124 






AOO 


M.UORK 


}"0R" THE BITS IN 


1928 


011664 


013737 


001124 


001000 




HOV 


WORK. LPS 


.NEW ADDRESS FOR CSR 


1929 


011672 


013737 


001000 


001002 




HOV 


LPS.LPB 


sGET STATUS ADDRESS 


1930 


011700 


062737 


000006 


001002 




AOO 


•6.LPB 


:POINT TO DATA BUFFER ADDRESS 


1931 


011706 


004737 


013642 






JSR 


l»7,GETCR 


■GO GET LF OR CR 


1932 


011712 


020027 


123456 






CMP 


m>.«123456 


(CHECK FOR BAD INPUT 


1933 


011716 


001013 








BNE 


365« 


iBR. IF CR RECEIVED (GOOD) 


1934 


011720 


000137 


011340 






JHP 


3S0I 


tJMP. IF NO CR (BAD) 


1935 


011724 


013737 


001040 


001000 


3601: 


HOV 


DZCSRC.LPS 


sMOVE DEFAULT CSR IN 


1936 


011732 


013737 


001000 


001002 




MOV 


LPS.LPB 


iSET UP THE DATA BUFFER 


1937 


011740 


062737 


000006 


001002 




Ann 
ADD 


v6 ( LPd 


iSCT TO CORffcCT BUrrcR 


1938 


011746 








3651: 






ilS OZ LINE VALID??? 


1939 


011746 


013746 


000004 






MOV 


8«4,-(SP) 


sSAVE VECTORS 


1940 


011752 


013746 


000006 






MOV 


8«6.-(SP) 


jSAVE 


1941 


011756 


012737 


011772 


000004 




MOV 


#3721.4 


{RELOAD VECTOR 


1942 


011764 


105777 


167010 






TSTB 


SlPS 


J IS PRINTER THERE? 


1943 


011770 


000411 








BR 


374$ 


;YES, SKIP TRAP PROCESSING 


1944 
1945 


011772 








372 »: 






tIF YES. NEVER GET HERE. 


1946 


011772 


022626 








CMP 


(SP)«.(SP)* 


i RESTORE STACK 


1947 


011774 


012637 


000006 






MOV 


(SP)*.6 


{RESTORE VECTORS 


1948 


012000 


012637 


000004 






MOV 


(SP)*,4 


{RESTORE 


1949 


012004 


104000 








EMT 


♦ 0 




1950 


012006 


006704 














1951 


012010 


000137 


010260 






JMP 


301 


{TRY AGAIN 


1952 










• 
t 








1953 










I YES. 


SLU IS 


HERE 




1954 










{ 




(SP)*.6 


{RESTORE VECTORS 


1955 


012014 


012637 


000006 




374 «: 


MOV 


1956 


012020 


012637 


000004 






MOV 


(SP)..4 


(RESTORE 


1957 
1958 


012024 


012777 


000020 


166746 




MOV 


•20.8LPS 


(SET MASTER CLEAR IN DZll 


1959 


012032 


013737 


MA • AAA 

001000 


AA 4 • ^A 

001120 


3679: 


nov 


LPS.OZCSRH 


(HOLD CSR ADDRESS FOR LATER 


1960 


012040 


032777 


000020 


166732 


3661: 


BIT 


»20,8LPS 


(UAIT FOR MC TO DROP 


1961 


012046 


001374 








BNE 


3661 


(BR. IF MASTER CLEAR IS SET 


1962 


012050 


004737 


014066 






JSR 


lt7.CLRTTY 


(PICK UP PENDING CHARACTERS 


1963 


012054 








369$: 








1964 










> 








1965 










i 


GET THE 


OZ'S LINE NUMBER 


1966 
1967 


012054 


005037 


001124 




3951: 


CLR 


UORK 


(CLEAR THE UORK AREA 


1968 


012060 


004737 


014066 






JSR 


*7.CLRTTY 


{PICK UP f-ENOING CHARACTERS 


1969 


012064 


104000 








EMT 


♦0 


(CALL PRINTER 


1970 


012066 


016547 








DZLINE 




(MESSAGE ADDRESS 



B5 



CZLCPA COLOR PRINTER DIAGNOSTIC 
SERIAL LINE SETUP ROUTINES 



1971 


012070 


105777 


166726 




1972 


012074 


100375 






1973 


012076 


117700 


166714 




1974 


012102 


105777 


166712 




1975 012106 


100375 






1976 


012110 


110077 


166700 




1977 


012114 


042700 


177700 




1978 


012120 


122700 


000012 




1979 


012124 


001425 






1980 


012126 


122700 


000015 




1981 


012132 


001422 






1982 


012134 


005037 


001124 




1983 


012140 


042700 


177700 




1984 


012144 


120027 


000070 




1985 


012150 


002341 






1986 


012152 


120027 


000060 




1987 


012156 


002736 






1988 


012160 


042700 


177770 




1989 


012164 


060037 


001124 




1990 


012170 


013737 


001124 


001072 


1991 


012176 


000406 






1992 


012200 


005037 


001072 




1993 


012204 


052737 


000001 


001066 


1994 


012212 


000423 






1995 


012214 








1996 


012214 


053737 


001072 


001070 


1997 


012222 


013703 


001072 




1998 


012226 


062703 


000001 




1999 


012232 


005001 






2000 


012234 


000261 






2001 


012236 


006101 






2002 


012240 


000241 






2003 


012242 


077303 






2004 


012244 


010137 


001066 




2005 


0122S0 


004737 


013642 




2006 


012254 


020027 


123456 




2007 


012260 


001675 







nACRO nill3 12-nAR-85 15:38 
470*! 
4801: 



SEQ 0053 



2008 
2009 
2010 

2011 012262 

2012 012266 

2013 012270 

2014 012272 

2015 012276 

2016 012300 

2017 012302 

2018 012306 

2019 012310 

2020 012312 

2021 012316 

2022 012320 

2023 012322 

2024 012326 

2025 012330 

2026 012332 

2027 012336 



004737 
104000 
016615 
004737 
104000 
016701 
004737 
104000 
016722 
004737 
104000 
016743 
004737 
104000 
016764 
004737 
104000 



014066 
014066 
014066 
014066 
014066 
014066 



490*! 



4951; 



4961: 



PICK UP OZ'S BAUD RATE 



4981: 



JSR 
EMT 
LNl 
JSR 
EMT 
LN2 
JSR 
EMT 
LN3 
JSR 
EMT 
LN4 
JSR 
EMT 
LN5 
JSR 
EMT 



*7,CLRTTY 
♦0 

K7.CLRTTY 
«0 

*7,CLRTTY 
*0 

<7,CLRTTY 
*0 

it7,CLRTTY 
♦ 0 

1*7,CLRTTY 
*0 



TSTB 


STKS 1 


CHK TTY IN STATUS 


BPL 


4704 1 


WAIT FOR DONE 


MOVB 


0TKB.KO 


PICK UP CHARACTER TYPED IN 


TSTB 


aTPS 


CHECK FOR BUSY 


BPL 


480t 


LOOP UNTIL NOT BUSY 


MOVB 


KO.STPB 


ECHO CHARACTER 


BIC 


•177700. *0 


ONLY 6 BIT PASS 


CMPB 


•12. KO 


WAS DEFAULT SEL. <LF> 


BEQ 


4901 


BR. IF DEFAULT SELECTED 


CMPB 


•15. *0 


WAS DEFAULT SEL. <CR> 


BEQ 


490 « 


BR, IF DEFAULT SELECTED 


CLR 


UORK 


CLEAR UORK AREA 


BIC 


•177700. KO 


ONLY 6 BIT PASS 


CMPB 


KO.^70 


ERROR IF 8 OR MORE 


BGE 


395* 




CMPB 


tfO.^60 s ERROR IF LESS THAN 0 


BLT 


395 ♦ 




BIC 


•177770. 1«0 


ONLY THREE BITS PASS 


ADD 


KO.UORK 


•"OR" THE BITS IN 


MOV 


UORK.OZLNE 


,SET UP NEW LINE NUMBER 


BR 


495« 


SKIP OVER DEFAULT 


CLR 


OZLNE 


SET WITH DEFAULT VECTOR 


BIS 


•l.DZTCR 


SET LINE 0 POSITION 


BR 


498 « 


.SKIP OVER CR GET STUFF 


BIS 


OZLNE. OZLPR .-SET LINE NUMBER UP 


MOV 


OZLNE. 1(3 


s NUMBER OF LOOPS 


AOO 


•1.K3 


SET UP COUNTER FOR SOB 


CLR 


tfl 


-CLEAR UORK AREA 


SEC 




iSET CARRY BIT 


ROL 


Kl 


MOV BIT INTO POSITION 


CLC 




DON'T SHIFT IN CARRY 


SOB 


113.4961 


.KEEP GOING IF NOT ZERO 


MOV 


Kl.OZTCR 


,6IT FOR LINE NUMBER 


JSR 


i»7,GETCR 


GO GET LF Oq CR 


CMP 


KO. •123456 : CHECK FOR BAD INPUT 


BEQ 


39S« :TRY AGAIN BAD INPUT (NOT CR) 



PICK UP PENDING CHARACTERS 
CALL TO THE TTY PRINTER 
BAUD RATE MENU PRINTOUTS 
PICK UP PENDING CHARACTERS 
CALL TO THE TTY PRINTER 
BAUD RATE MENU PRINTOUTS 
PICK UP PENDING CHARACTERS 
CALL TO THE TTY PRINTER 
BAUD RATE MENU PRINTOUTS 
PICK UP PENDING CHARACTERS 
CALL TO THE TTY PRINTER 
BAUD RATE MENU PRINTOUTS 
PICK UP PENDING CHARACTERS 
CALL TO THE TTY PRINTER 
BAUD RATE MENU PRINTOUTS 
PICK UP PENDING CHARACTERS 
J CALL TO THE TTY PRINTER 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR- 
SERIAL LINE SETUP ROUTINES 



2028 012340 


017005 








LN6 


2029 012342 


004737 


014066 






JSR 


2030 012346 


104000 








EMT 


2031 012350 


017026 








LN7 


2032 012352 


004737 


014066 






JSR 


2033 012356 


104000 








EMT 


2034 012360 


017047 








LN8 


2035 012362 


004737 


014066 






JSR 


2036 012366 


104000 








EMT 


2037 012370 


017111 








LNIO 


2038 012372 


105777 


166424 




5001: 


TSTB 


2039 012376 


100375 








BPL 


2040 012400 


117700 


166412 






MOVB 


2041 012404 


105777 


166410 




507* : 


TSTB 


2042 012410 


100375 








BPL 


2043 012412 


110077 


166376 






MOVB 


2044 012416 


042700 


177700 






BIC 


2045 012422 


122700 


000012 






CMPB 


2046 012426 


001467 








BEQ 


2047 012430 


122700 


000015 








2048 012434 


001464 








n^M 

BEQ 


2049 012436 


005037 


0011<^4 






CLR 


2050 012442 


042700 


177770 






BIC 


2051 012446 


122700 


000001 






CMPB 


2052 012452 


001003 








BNE 


2053 012454 


012737 


002000 


001124 




MOV 


2054 012462 








C4 MA 

5101 : 




2055 012462 


122700 


000002 






CMPB 


2056 012466 


001003 








BNE 


2057 012470 


012737 


002400 


MM 4 t il 

001124 




nuv 


2058 012476 








5201 : 




2059 012476 


122700 


MM MMM V 

000003 






f*MDO 

CnPo 


2060 012502 


001003 








dNc 


2061 012504 


012737 


MM V MMM 

003000 


001124 




MAii 

nov 


2062 012512 








321 > : 


CnrB 


2063 012512 


122700 


MMMMMii 

000004 






2064 012516 


001003 








dNc 


2065 012520 


012737 


MM MM 

003400 


001 124 




nuv 


2066 012526 








5221 : 




2067 012526 


122700 


000005 






CflPB 


2068 012532 


001003 








DNC 


2069 012534 


012737 


005000 


001 124 




nuv 


2070 012542 








5239 : 




2071 012542 


122700 


M MMMM^ 

000006 








2072 012546 


001003 








BNE 


2073 012550 


012737 


MM^ MMM 

006000 


001124 




MOV 


2074 012556 








524 ♦ : 




2075 012556 


122700 


MM MM M ^ 

000007 






CMPB 


2076 012562 


001015 








BNE 


2077 012564 


012737 


MM^ MMM 

007000 


001124 


543 ♦ : 


MOV 


2070 Vies re 


OW73 f 


OloDHe 






ICO 


2079 012576 


020027 


123456 






CMP 


2080 012602 


001627 








BEQ 


2081 012604 


000415 








BR 


2062 012606 


012737 


007000 


001124 


544$: 


MOV 


2083 012614 


000411 








BR 


2084 012616 








525$: 





C5 

15:38 



SEQ 0054 



iBAUD RATE MENU PRINTOUTS 

K7.CLRTTY :PICK UP PENDING CHARACTERS 

♦0 ;CALL TO THE TTY PRINTER 

:BAUD RATE MENU PRINTOUTS 

lt7.CLRTTY J PICK UP PENDING CHARACTERS 

♦0 I CALL TO THE TTY PRINTER 

:BAUD RATE MENU PRINTOUTS 

lt7.CLRTTY {PICK UP PENDING CHARACTERS 

♦0 ;CALL TO THE TTY PRINTER 

:BAUD RATP MENU PRINTOUTS 

QTKS jCHK TTY IN STATUS 

500$ sUAIT FOR DONE 

STKB.ltO ;PICK UP CHARACTER TYPED IN 

STPS ; CHECK FOR BUSY 

507$ sLOOP UNTIL NOT BUSY 

*0.8TPB iECHO CHARACTER 

*177700,i*0 sONLY 6 BIT PASS 

*12,it0 iUAS DEFAULT SEL. <LF> 

544$ iBR. IF DEFAULT SELECTED 

415, KO iUAS DEFAULT SEL. <CR> 

544$ jBR, IF DEFAULT SELECTED 

WORK .-CLEAR WORK AREA 

#177770,1*0 J ONLY THREE BITS PASS 

*1.H0 s CHECK FOR A "1" TYPED 

510$ iBR. IF IT WASN'T A ONE 

«200O,U0RK sSET FOR 150 BAUD 

#2.110 {CHECK FOR A TWO TYPED 

520$ sBR. IF IT HASN'T A "2" 

«240O.U0RK iSET FOR 300 BAUD 

#3,*0 {CHECK FOR A THREE TYPED 

521$ ;BR. IF IT WASN'T A "3" 

#3000. M)RK iSET FOR 600 BAUD 

M.KO -.CHECK FOR A FOUR TYPED 

522$ iBR. IF IT WASN'T A "4" 

•3400. WORK :SET FOR 1200 BAUD 

#5.itO {CHECK FOR A FIVE TYPED 

523$ {BR. IF IT WASN'T A "5* 

45000. WORK {SET FOR 2400 BAUD 

«6.i(0 {CHECK FOR A SIX TYPED 

524$ {BR, IF IT WASN'T A "6" 

46000. WORK :SET FOR 4800 BAUD 

»7,i*0 {CHECK FOR A SEVEN TYPED 

525$ {BR, IF IT WASN'T A "7" 

#7000. WORK {SET FOR 9600 BAUD 

ft7.GETCR {GO GET LF OR CR 

itO. 4123456 {CHECK FOR BAD INPUT 

498$ :BR. IF CR RECEIVED (GOOD) 

530$ {LEAVE 

47000. WORK {DEFAULT IS 9600 

530$ {LEAVE 



CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 
SERIAL LINE SETUP ROUTINES 



2085 012616 


023727 


001124 


000000 


52?$: 


2086 012624 


001616 








2087 012626 


004737 


013642 






2088 012632 


020027 


123456 






2089 012636 


001611 








2090 012640 








530* : 


2091 012640 


013737 


001124 


001102 


540$ : 


2092 012646 


053737 


001124 


001070 




2093 








s 


2094 








s 


2095 








s 


2096 012654 








600$: 


2097 012654 


004737 


014066 






2098 012660 


104000 








2099 012662 


017153 








2100 012664 


105777 


166132 




604$; 


2101 012670 


100375 








2102 012672 


117700 


166120 






2103 012676 


105777 


166116 




607$: 


2104 012702 


100375 








2105 012704 


110077 


166104 






2106 012710 


042700 


177700 






2107 012714 


122700 


000012 






2108 012720 


001413 








2109 012722 


122700 


000015 






2110 012726 


001410 








2111 012730 


122700 


000061 






2112 012734 


001011 








2113 012736 


004737 


013642 






2114 012742 


020027 


123456 






2115 012746 


001742 








2116 012750 


042737 


000040 


001070 


610t : 


2117 012756 


000413 








2118 012760 


122700 


000062 




620$ ; 


2119 012764 


001333 








2120 012766 


004737 


013642 






2121 012772 


020027 


123456 






2122 012776 


001726 








2123 013000 


052737 


000040 


001070 




2124 013006 








630$ : 


2125 013006 


004737 


014066 






2126 








• 


2127 










2128 








• 


2129 013012 








7001: 


2130 013012 


004737 


014066 






2131 013016 


104000 








2132 013020 


017224 








2133 013022 


105777 


165774 




704$ : 


2134 013026 


100375 








2135 013030 


117700 


165762 






2136 013034 


105777 


165760 




707$: 


2137 013040 


100375 








2138 013042 


110077 


165746 






2139 013046 


042700 


177700 






2140 013052 


122700 


000012 






2141 013056 


001407 









D5 

12 HAR 85 15:38 



CMP UORK , «0 

BEQ 498$ 

JSR K7.GETCR 

CMP itO. #123456 

BEQ 498$ 

MOV UORK.BRATE 

BIS UORK.OZLPR 

THIS CODE SETS UP THE NUMBER OF 



JSR 


l*7,CLRTTY 


EMT 


♦0 


STOPM 




TSTB 


8TKS 


BPL 


604$ 


MOVB 


9TKB,»0 


TSTB 


aTPS 


BPL 


607$ 


MOVB 


K0.9TPB 


BIC 


#177700. KO 


THPR 


If X C « 


BEQ 


610$ 


CMPB 


#15. KO 


BEQ 


610$ 


CMPB 


#61. KO 


BNE 


620$ 


JSR 


K7.GETCR 


CMP 


ftO, #123456 


BEQ 


600$ 


BIC 


#40.0ZLPR 


BR 


630$ 


CMPB 


»62.M 


BNE 


600« 


JSR 


lt7.GETCR 


CMP 


KO. #123456 


BEQ 


500$ 


BIS 


#40.0ZLPR 


JSR 


lt7.CLRTTY 



THIS CODE SETS UP THE NUMBER OF 



JSR l<7,CLRTTY 

EMT +0 
OATAM 

TSTB aTKS 

BPL 704$ 

MOVB aTKB.KO 

TSTB aTPS 

BPL 707$ 

MOVB itO.aTPB 

BIC #177700, KO 

CMPB #12,i»0 

BEQ 710$ 



3EQ 0055 



! CHECK FOR NOT SET 

sBR. IF NUMBERS NOT VALID 

sGO GET LF OR CR 

! CHECK FOR BAD INPUT 

•.TRY AGAIN BAD INPUT (NOT CR) 

: STORE BAUD RATE FOR LATER 
:PUT BAUD RATE IN PLACE 

BITS 



sPICK UP PENDING CHARACTERS 

.•CALL PRINT ROUTINE 

;"TYPE NUMBER OF STOP BITS ETC." 

:CK TTY IN STATUS 

;UAIT FOR DONE 

;PICK UP CHARACTER 

: CHECK FOR BUSY 

:LOOP IF TTY IS BUSY (BR) 

:ECHO CHARACTER 

:ONLY 6 BIT PASS 

:CHK FOR <LF> DEFAULT 

jBR. IF DEFAULT (ONE STOP SIT) 

jCHi< FOR <CR> DEFAULT 

:BR. IF DEFAULT (ONE STOP BIT) 

;UAS AN ASCII 1 TYPED 

:BR. IF IT WASN'T A ONE 

iGO GET LF OR CR 

J CHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 

si STOP BIT » 0 

iSKIP OVER 

: CHECK FOR A TWO 

iBR. IF NOT A TWO (ERROR) 

;G0 GET LF OR CR 

; CHECK FOR BAD INPUT 

sTRY AGAIN BAD INPUT (NOT CR) 

s2 STOP BIT « 1 

{PICK UP PENDING CHARACTERS 

BITS 



PICK UP PENDING CHARACTERS 

CALL PRINT ROUTINE 

"TYPE MUNBER OF DATA BITS ETC." 

CK TTY IN STATUS 

WAIT FOR DONE 

PICK UP CHARACTER 

CHECK FOR BUSY 

LOOP IF TTY IS BUSY (BR) 

ECHO CHARACTER 

ONLY 6 BIT PASS 

CHK FOR <LF> DEFAULT 

BR. IF DEFAULT (7 DATA BITS) 



E5 

CZLCPA COLOR PRINTER DIAGNOSTIC MACRO N1113 12 nAR-85 15:38 
SERIAL LINE SETUP ROUTINES 



2142 013060 


122700 


000015 






CMPB 


915, KO 


2143 013064 


001404 








BEQ 


710* 


2144 013066 


122700 


000067 






CMPB 


M7.K0 


2145 013072 


001016 








BNE 


720* 


2146 013074 


000404 








BR 


715* 


2147 013076 


052737 


000020 


001070 


710$ : 


BIS 


920 , OZLPR 


2148 01il04 


000424 








BR 


730* 


2149 013106 


052737 


000020 


001070 


715* : 


BIS 


920 , OZLPR 


2150 013114 


AAii ^9^ 

004737 


A4 9^ ^ 'I 

013642 






JSR 


lf7,GETCR 


2151 013120 


A'HAA'%^ 

020027 


4 '%9 ii C £ 

123456 






CMP 


WA A4 '^VdPf 

KO , 0123456 


2152 013124 


AA4 ^9^ 

001732 








BEQ 


700$ 


2153 013120 


AA.Ail 4 9 

000413 








BR 


^9A A 

730$ 


2154 013130 


122700 


AAAA^A 

000070 




7201 : 


CnPo 


Jft^ A ^A 

070, HO 


2155 013134 


A A 4 9 

001326 








oNc 


^AA 4 

700$ 


'^4C£. A49t9£ 

2156 013136 


AAJl T9T 

O04737 


A 4 9£. Jl ^ 

013642 






JSR 


•7 , GET Ln 


2157 013142 


A^ AAO^ 

020027 


123456 






tnP 


KO, 9123456 


2158 013146 


AA 4 4 

001721 








ocn 

BtU 


^ AA , 

700$ 


2159 013150 


052737 


AAAA9A 

000030 


AA % t\1f\ 

0O107O 




BIS 


930 , DZLrR 


2160 013156 








7301 : 






2161 013156 


004737 


A4 ilA£.£. 

014066 






ICO 

Jan 


|if ,CLR ITT 


2162 








• 






2163 








• 


THIS 


CODE SETS UP PARITY BITS 


2164 














A49t£.^ 

2165 013162 








AAA 4 . 

BOO* ; 






'^•ff. A494£.^ 

2166 013162 


004737 


014066 






JSR 


K7,CLRTTY 


2167 013166 


« A A AAA 

104000 








EMT 


*0 


'^t^A A«94 ^ A 

2168 013170 


017275 








PARITY 


2169 0131/2 


105 f f f 


lo50c4 




BAA < a 

004 ♦ : 


TSTB 


8TKS 


2170 013176 


lOUo r 5 








BPL 


804$ 


2171 013200 


1 1 ^^AA 


Io!>Dlc 






MOVB 


STKB.tfO 


2172 013204 


103 f f f 


16!>OIO 




AA*7t . 


TSTB 


OTPS 


2173 013210 


1005 /5 








BPL 


807$ 


2174 013212 


IIOU f r 


1 £.QC7il 
/O 






MOVB 


M.8TPB 


2175 013216 


Ail OTAA 

04e r OO 


X r f OvU 






BIC 


9177600.1(0 


2176 013222 


lee r OO 








CMPB 


912, M 


2177 013226 


0014e r 








BEQ 


825$ 


t« A4 V4VA 

2170 013230 


1 99*1 AA 

122 rOO 


AAA A 4 C 






CMPB 


915.K0 


A4 9^9il 

2179 013234 


AA ^ A^A 

001424 








BEQ 


82S« 


1^ 4 aA A4 

2180 013236 


122 rOv 








CMPB 


9131 .KO 


2181 013242 


AA4 A4 1 

001011 








BNE 


8201 


2182 0132A4 


004 f 5 f 






Aim • 


JSR 


l»7.GeTCR 


^4 09 A 4 9^CA 

2183 013250 


A9AA9"7 

02002 1 


123430 






CMP 


KO. 9123456 


21o4 013254 


AA 1 lil O 
001 I^C 








BEQ 


800$ 


ac A4 9'^C£. 

21 05 013256 


052 f 3 / 


AAA 1 A A 
OOOlOO 


AA1 A'7A 
OOlO f O 




BIS 


9100, OZLPR 


21oo 013264 


AAAA \ C 

000415 








BR 


830$ 


^4 ft"T A4 

2107 013266 


1 ^ I"? AA 

122700 


AAA 1 1 ilL 






CMPB 


9116, M 


21 OO 013272 


AA 1 T T T 

001330 








BNE 


8001 


'^400 AlT9*7il 

2l09 0152^4 


AA 4TT"7 
0O473 / 


013D4i^ 






JSR 


»<7,GETCR 


^4 AA A4 99AA 

2190 013300 


020C27 


123456 






CMP 


KO. 9123456 


"^4 A4 A4 99Ail 

2191 013304 


AA 1 T £ 

001726 








BEQ 


800$ 












BIC 


9100, OZLPR 


2193 013314 


000137 


013462 






JMP 


9501 


2194 013320 








830$: 






2195 013320 


004737 


014066 






JSR 


K7.CLRTTY 


2196 














2197 










THIS 


CODE SETS UP THE 000 EVEN 


2198 















SEQ 0056 



sCHK FOR <CR> DEFAULT 

:BR, IF DEFAULT (7 DATA BITS) 

:UAS AN ASCII 7 TYPED 

iBR, IF IT WASN'T A SEVEN 

:SKIP OVER 

;7 DATA BITS - 10 

sSKIP OVER CR GET 

s7 DATA BITS - 10 

iGO GET LF OR CR 

i CHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 

;SKIP OVER 

; CHECK FOR A EIGHT 

sBR. IF NOT A EIGHT (FRROR) 

:G0 GET LF OR CR 

{CHECK FOR BAD INPUT 

:TRY AGAIN BAD INPUT (NOT CP) 

;8 DATA BITS - 30 

{PICK UP PENDING CHARACTERS 



{PICK UP PENDING CHARACTERS 

{CALL PRINT ROUTINE 

{"IS PARITY SELECTED " 

;CK TTY IN STATUS 

:UAIT FOR DONE 

{PICK UP CHARACTER 

{CHECK FOR BUSY 

{LOOP IF TTY IS BUSY (BR) 

{ECHO CHARACTER 

{ONLY 7 BIT PASS 

{CHK FOR <LF> DEFAULT 

{BR. IF DEFAULT (NO) 

{CHK FOR <CR> DEFAULT 

:BR. IF DEFAULT (NO) 

{WAS AN ASCII Y TYPED 

{BR. IF IT UASN'T A Y 

{GO GET LF OR CR 

{CHECK FOR BAD INPUT 

{TRY AGAIN BAD INPUT (NOT CR) 

{YES PARITY IS USED 

{SKIP OVER 

{CHECK FOR A N 

{BR. IF NOT A N (ERROR) 

{GO GET LF OR CR 

{CHECK FOR BAD INPUT 

{TRY AGAIN BAD INPUT (NOT CR) 

{NO PARITY 

{NO MORE PARITY 7 

{PICK UP PENDING CHARACTERS 



BIT 



CZLCPA COLOR PRINTER OIAGNGSTJC MACRO MlllS 
SERIAL LINE SETUP ROUTINES 



2199 013324 








9001: 


2200 013324 


004737 


014066 






2201 


013330 


104000 








2202 


013332 


017340 








2203 


013334 


105777 


165462 




9041: 


2204 


013340 


100375 








2205 


013342 


117700 


165450 






2206 


013346 


105777 


165446 




907* s 


2207 


013352 


100375 








2208 


013354 


110077 


165434 






2209 


013360 


042700 


177600 






2210 013364 


122700 


000012 






2211 


Oi3370 


001413 








2212 


At TT73 


122700 


000015 






2213 


A1 TT7A 


001410 








2214 




122700 


000117 






2215 


Ol 340*» 


001011 








2216 


A1 TAAiL 

Ol 3400 


004737 


013642 






diex 1 


A1 3 


020027 


123456 






CdXO 


U13410 


001742 










A1 YA3A 


042737 


000200 


A A • A^ A 

001070 


9101 : 




A1 TA3A 

vj,34eO 


000413 








eecl 


A1 TATA 


122700 


000105 




A^A A 

9201 : 


3000 


A1 TATA 


001333 








CCC.3 


A1 TATA 
0X0^30 


004737 


A4 9£ il 

013642 






ccc'» 


A1 TAA3 


020027 


123456 








A1 TAA& 


001726 








cceo 


A1 TA(<n 


052737 


AAA^AA 

00O200 


A A 1 A7 A 
001070 




ecc > 


A1 TA<t(« 








9309 : 


CC.C.O 


M TA<«A 


004737 


014066 






3930 
dec's 










• 

7D0« : 




A] TAA3 








2231 










» 


2232 










f 


2233 


013462 


013703 


A#\4 AAA 

001000 






2234 


013466 


062703 


AAAAAf 

000006 






2235 


013472 


010337 


AA4 AA^ 

001002 






2236 


013476 


013703 


AA4 AAA 

001000 






2237 


013502 


062703 


A AA AA ^ 

000002 






2238 


013506 


010337 


A A 4 4 4 f 

0011 16 






2239 


013512 


052737 


A 4 A AAA 

010000 


AA1 A^A 
001 07O 




2240 


013520 


013713 


AA4 A'? A 

001070 






2241 


013524 


052777 


AAAA>t A 

000040 


165246 




2242 


013532 


At 37AT 

062 '03 


AAAAAO 

OOUOvc 






2243 


013536 


113713 


001066 






2244 


013542 


010337 


001110 






2245 


013546 


062737 


000001 


001110 




2246 










f 


2247 










t 


2248 


013554 


000137 


011324 







F5 

12-nAR-8S 15:38 



JSR 


»t7.CLRTTY 


EMT 


♦0 


PARITZ 




TSTB 


8TKS 


BPL 


904$ 


MOVB 


8TKB,«(0 


TSTB 


OTPS 


BPL 


907$ 


MOVB 


KO.STPB 


BIC 


#177600, i»0 


CMPB 


«12,tf0 


BEQ 


910$ 


CMPB 


*15.K0 


BEQ 


910$ 


CMPB 


«117.lfO 


BNE 


920$ 


JSR 


i*7,GETCR 


CMP 


it0,i>123456 


BEQ 


900$ 


BIC 


«200.DZLPR 


BR 


930$ 


CMPB 


«105.K0 


BNE 


900$ 


JSR 


i<7,GETCR 


CMP 


K0,»123456 


BEQ 


900$ 


BIS 


b4^a^m 

02OO,DZLPR 


JSR 


»7,CLRTTY 


SET UP 


ACTUAL OZ REG. 


MOW 


LPS. OS 


ADD 


*D,*3 


MOV 


KStLPB 


MOV 


LPS (US 


AAA 

ADO 


AA W9 


MOV 


l>3 .DZRB Ur 


BIS 


«10000.DZLPR 


MOV 


DZLPR.Crt) 


DTC 


AAf\ at DC 


ADD 


«2.ii3 


MOVB 


DZTCR.CK3) 


MOV 


*3.0ZTCRA 


ADO 


#1.DZTCRA 


SHOULD 


BE ALL SET 


JMP 


99$ 



SEQ 0057 



{PICK UP PENDING CHARACTERS 

iCALL PRINT ROUTINE 

;"IS PARITY ODD OR EVEN" 

;CK TTY IN STATUS 

;UAIT FOR DONE 

;PICK UP CHARACTER 

; CHECK FOR BUSY 

jLOOP IF TTY IS BUSY CBR) 

sECHO CHARACTER 

;ONLY 7 BIT PASS 

iCHK FOR <LF> DEFAULT 

sBR. IF DEFAULT (ODD) 

sCHK FOR <CR> DEFAULT 

sBR. IF DEFAULT (ODD) 

iUAS AN ASCII 0 TYPED 

:BR. IF IT WASN'T A ONE 

J GO GET LF OR CR 

: CHECK FOR BAD INPUT 

jTRY AGAIN BAD INPUT CNOT CR) 

{ODD PARITY » 0 

.-SKIP OVER 

; CHECK FOR A E 

:BR. IF NOT A TWO (ERROR) 

sGO GET LF OR CR 

J CHECK FOR BAD INPUT 

{TRY AGAIN BAD INPUT (NOT CR) 

{EVEN PARITY - I 

iPICK UP PENDING CHARACTERS 



GET STATUS REGISTER ADDRESS 
POINT TO TRANS BUFFER ADOR 
PRINTER DATA BUFFER ADOR 
GET STATUS REG ADDRESS 
POINT TO LPR REGISTER 
ADDRESS OF RECEIVER BUFFER 
SET RECEIVER ON BIT 
SET SPEED. LINE, PARITY ETC 
SET MASTER SCAN ENABLE 
POINT TO TCR REGISTER 
SET TRANS LINE NUMBER 
ADDRESS FOR DTR CHECK 
POINT TO UPPER HALF 



{RETURN TO CALLEE 



G5 

CZLCPA COLOR PRINTER DIAGNOSTIC flACRO nill3 12-nAR-8S 15:38 SEQ 0058 

SERIAL LINE SETUP ROUTINES 



2250 
















2251 










2252 
















2253 








; OTHER SUBROUTINES 




2254 
















2255 
















2256 013560 






GETOCT : 








2257 013560 


105777 


165236 


Ui 


TSTB 


9TKS 


CK TTY IN STATUS 


2258 013564 


100375 








BPL 


1* 


WAIT FOR DONE 


2259 013566 


117700 


165224 






novB 


STKB.tfO 


PICK UP CHARACTER 


2260 013572 


105777 


165222 


5«: 


TSTB 


OTPS 


[CHECK FOR BUSY 


2261 013576 


100375 








BPL 


5$ 


LOOP IF TTY IS BUSY (BR) 


2262 013600 


110077 


165210 






MOVB 


KO.STPB 


ECHO CHARACTER 


2263 013604 


042700 


177700 






BIC 


#177700. KO 


ONLY 6 BIT PASS 


2264 013610 


120027 


000070 






CMPB 


»t0.*70 


; ERROR IF 8 OR MORE 


2265 013614 


002007 








BGE 


10« 




2266 013616 


120027 


000060 






CMPB 


it0.«60 


.ERROR IF LESS THAN 0 


2267 013622 


002404 








BLT 


10* 




2268 013624 


042700 


177770 






BIC 


#177770, ftO 


J ONLY THREE BITS PASS 


2269 013630 


000137 


013640 






JMP 


20* 


[OCTAL # OK 


2270 013634 


012700 


123456 


10«: 


MOV 


#123456, tfO 


iWAS NOT OCTAL « 


2271 013640 


000207 




20«: 


RTS 


*7 




2272 










2273 
















2274 










THIS ROUTINE WAITS FOR A CR OR LF 




2275 
















2276 013642 






GETCR: 








2277 013642 


105777 


165154 


1*: 


TSTB 


9TKS 


sCK TTY IN STATUS 


2278 013646 


100375 








BPL 


1* 


iUAIT FOR DONE 


2279 013650 


117700 


165142 






MOVB 


STKB.KO 


(PICK UP CHARACTER 


2280 013654 


105777 


165140 


5$: 


TSTB 


aTPS 


sCHECK FOR BUSY 


2281 013660 


100375 








BPL 


5* 


sLOOP IF TTY IS BUSY (BR) 


2282 013662 


110077 


165126 






MOVB 


KO.STPB 


iECHO CHARACTER 


2283 013666 


042700 


177700 






BIC 


#177700, KO 


; ONLY 6 BIT PASS 


2284 013672 


120027 


000015 






CMPB 


*0.#15 


;WAS IT A CR 


2285 013676 


001405 








BEQ 


20* 


;BR. IF IT WAS 


2286 013700 


120027 


000012 






CMPB 


«0.»12 


iUAS IT A LF 


2287 013704 


001402 








BEQ 


20* 


iBR. IF IT WAS 


2288 013706 


012700 


1 23456 


10*: 


MOV 


#123456. «0 


;UAS NOT OCTAL « 


2289 013712 


004737 


014066 


201: 


JSR 


ii7,CLRTTY 


i CLEAR OUT ANY WAITING CHARA 


2290 013716 


000207 








RTS 


*7 




2291 013720 


004737 


014066 


EIACHK: 


JSR 


*7.CLRTTY 


•PICK UP PENDING CHARACTERS 


2292 013724 


104000 








EMT 


*0 


■CALL TO THE TTY PRINTER 


2293 013726 


015613 








MENUlO 




."LINE TYPE" 


2294 013730 


104000 








EMT 


♦0 


CALL TO THE TTY PRINTER 


2295 013732 


015643 








MENU20 




" 1 EIA" 


2296 013734 


104000 








EMT 


*0 


CALL TO THE TTY PRINTER 


2297 013736 


015654 








MENU30 




" ?OMA» 


2298 013740 


104000 








EMT 


*0 


CALL TO THE TTY PRINTER 


2299 013742 


015667 








MENU40 




"SERIAL LINE TYPE <1>?" 




103 f f / 




lii 


TSTB 


STKS 


CHK TTY IN STATUS 


2301 013750 


100375 








BPL 


1* 


WAIT FOR DONE 


2302 013752 


117700 


165040 






MOVB 


STKB.tfO 


PICK UP CHARACTER TYPED IN 


2303 013756 


105777 


165036 


5$: 


TSTB 


aTPS 


CHECK FOR BUSY 


2304 013762 


100375 








BPL 


5* 


LOOP UNTIL NOT BUSY 


2305 013764 


110077 


165024 






MOVB 


KO.STPB i 


ECHO CHARACTER 


2306 013770 


042700 


177700 






BIC 


#177700, «0 i 


ONLY 6 BIT PASS 



H5 

CZLCPA COLOR PRINTER DIAGNOSTIC MACRO MlllS 12-MAR-6S 15:38 
SERIAL LINE SETUP ROUTINES 





1 337rtA 
Icc / UU 


AAAA1 0 






LnKH 


A1 0 ^A 

trie (>iO 






UAS OE^^AULT SEL. <LF> 


OTAfi AlilAAA 


















BR. IF DEFAULT SELECTED 


OTAQ A1AAAO 


Ice tW 


AAAA 1 








A1 C ^A 






UAS DEFAULT SEL. <CR> 


01 1 A A1ilAA&. 










DCA 


1A A 






BR, IF DEFAULT SELECTED 


O'K 11 A1 AA1 A 




1 7777A 






OTP 
DAI. 


A17777A ^A 






ONLY THREE BITS PASS 


O'll 0 A1 AA1 ^ 


1 337rtA 


AAAAA 1 






THDQ 

V.nro 


A1 ^A 




; CHECK FOR A "1" TYPED 


A1AA3A 


AA 1 AA^ 








ONC 


1 AA 




;BR, IF IT UASN'T A ONE 


9T1A A1AA33 


A1 37^7 


AAAAA1 


AA1 113 




HAW 

nuv 


A1 PT A 
WX ,t.Xn 




sSET FOR EIA 


A1AATA 


AAd7'^7 
'Of 


A1 






ICO 


^7 flPTfD 




sUAIT FOR CR 




00041 X 








no 

Dn 


1 AAi 
Xvv* 




;EXIT 










1 Al • 


PMDB 


AO ^A 




: CHECK FOR 20MA 












RMP 


1 4 




sBR. NEITHER 


2319 014044 


005037 


OOlllP 






CLR 


EIA 






SET TO 20 MA 






A1 Xt^AO 






JSR 


<7,GETCR 






WAIT FOR CR 




00040T 








BR 


1001 






(EXIT 






000001 


001 119 
yfvxxxc 


20(: 


MOV 


«1,EIA 






CR - DEFAULT « EIA 


OTP*? niAOAA 








1001: 


RTS 


K7 






EXIT SUBROUTINE 


P^P4 


















































C JC r 






























THIS 


SUBROUTINE PICKS 


CHARACTERS OUT 


OF THE TTY RECEIVE BUFFER 












I.E. 


GETS RID OF THE 


"EXTRA" ONES 






P330 




















?331 014066 








CLRTTY: 












014066 


012703 


040000 

V~ WW w 






MOV 


»40000.K3 






BIG COUNTER 




105777 

Iff 


1647P4 




11: 


TSTB 


9TKS 






CHECK FOR RECEIVER DONE SET 


2334 014076 


100007 








BPL 


5* 






BR. IF DONE IS NOT SET 


2335 014100 


117700 


164712 






MOVB 


STKB.KO 






PICK UP THE CHARACTER 


2336 014104 


105777 


164710 




31: 


TSTB 


aTPS 






CHECK FOR TRANSMITTER READY 


2337 014110 


100375 








BPL 


31 






WAIT UNTIL READY 


2338 014112 


110077 


164676 






MOVB 


KO.aTPB 






ECHO THE "EXTRA" CHARACTER 


2339 014116 


077313 






5«: 


SOB 


«.ll 






I OOP COUNTER 


2340 014120 


000207 








RTS 


K7 






.RETURN TO CALLEE 



15 



001102 
014144 
164636 



CZLCPA COLOR PRINTER DIAGNOSTIC 
SERIAL LINE SETUP ROUTINES 



2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 

2351 014122 

2352 014122 005737 

2353 014126 001403 

2354 014130 005737 

2355 014134 000207 

2356 014136 005777 

2357 014142 000774 

2358 014144 000200 
2359 

2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 

2369 014146 

2370 014146 005737 

2371 014152 001047 

2372 014154 005737 

2373 014160 001416 

2374 014162 005737 

2375 014166 001404 

2376 014170 137737 

2377 014176 001465 

2378 014200 037727 

2379 014206 001006 

2380 014210 005777 

2381 014214 000207 

2382 014216 105777 

2383 014222 000774 

2384 014224 017705 

2385 014230 042705 

2386 014234 120527 

2387 014240 001363 

2388 014242 037727 

2389 014250 001774 

2390 014252 017705 

2391 014256 042705 

2392 014262 120527 

2393 014266 001365 

2394 014270 000747 

2395 014272 032777 

2396 014300 001746 

2397 014302 117705 

2398 014306 042705 
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SEQ 0060 



TEST FOR ERROR, 

THIS ROUTINE TAKES THE PLACE OF ALL THE "TST o/t.PS" COOES. 
THIS WAS REQUIRED FOR THE DZll. IF THE DZ IS NOT SELECTED 
THE ROUTINE SIMPLY DDES THE "TST SLPS" AND RETURNS. IF THERE 
IS A DZll IT ONLY CHECKS A DUMMY WORD TO SHOU NO ERROR. 
THERE ARE NO TRANSMIT ERRORS ON THE DZll. 



ERCHK: 



201: 
501: 

TSTURD: 



TST 
BEQ 
TST 
RTS 
TST 
BR 

.UORD 



BRATE 
50» 

TSTURD 
J*7 
8LPS 
20 » 

000200 



8 CHECK FIRST FOR DZ 
iBR. IF NO DZ SELECTED 
; DUMMY CONDITION CODE SETUP 
: RETURN UITH NO MiNuS SET 
sNOT DZ SO DO REGULAR CHECK 
5 RETURN UITH CODES ETC 
;N0 MINUS BIT SET 



001106 
001102 
001112 

164714 001066 
164574 000200 
164564 
164556 

164666 

177700 
000023 

164532 000200 

164640 
177700 
000021 



000200 164576 

164572 
177700 



A******************************************************************** 

TEST FOR READY. 

THIS ROUTINE TAKES THE PLACE OF ALL THE "TSTB SLPS" COOES. 
THIS WAS REQUIRED FOR THE DZll. IF THE DZ IS NOT SELECTED 
THE ROUTINE SIMPLY DOES THE "TSTB SLPS" AND RETURNS. IF THERE 
IS A DZll IT CHECKS THE REAL READY BIT (BIT15). 
THE ROUTINE DOES A "TST SLPS" WHICH SETS THE CORRECT CONDITION 
CODES 

ERCHKB: 





TST 


DLHERE 


;ARE WE TALKING TO A OL 




BNE 


801 


iBR. IF OL IS BEING USED 




TST 


BRATE 


1 CHECK FIRST FOR DZ 




BEQ 


50 » 


;BR. IF NO DZ SELECTED 




TST 


EIA 


;UHAT MODE ARE UE IN 




BEQ 


5* 


;BR. IF IN 20 MA MODE 




8ITB 


9OZTCRA.0ZTCR 


tIS DATA TERMINAL READY SET 




BEQ 


1001 


;BR IF IT IS NOT SET (ERROR) 


5«: 


BIT 


fiLPS.«200 


[RECEIVER DONE SET 




BNE 


601 


;BR. IF RECVR HAS CHARACTER 


101: 


TST 


8LPS 


i LOOKS AT REAL READY SIT 


201: 


RTS 


1*7 


{RETURN UITH NO MINUS SET 


50«: 


TSTB 


8LPS 


iNOT DZ SO 00 REGULAR CHECK 




BR 


201 


i RETURN UITH COOES ETC 


601: 


MOV 


aOZRBUF.KS ;PICK UP CHARACTER 




BIC 


#177700. i»5 


.ONLY 6 BITS PASS 




CMPB 


K5.*23 


CHK FOR XOFF (CNTL S) 




BNE 


10 « 


jBR. IF NOT XOFF C RETURN) 


701: 


BIT 


9LPS.»200 


LOOK FOR ANOTHER CHARACTER 




BEQ 


701 


UAIT hCRE FOR NEXT CHARACTER 




MOV 


aOZRBUF.KS 


IT ARRIVED 




BIC 


#177700.1*5 


ONLY SIX BITS PASS 




CMPB 


K5.«21 sUAS IT XON CCNTL Q) 




BNE 


70 » 


BR. IF IT UASN'T XON CLOOP) 




BR 


10» 


IT UAS XON RETURN 


80$: 


BIT 


»200.S0LLPS 


HAVE UE RECEIVED A RECV CHARA 




BEQ 


50* 


BR, IF Ut HAVE NOT 




MOVB 


9DLRBUF.K5 


PICK UP THE CHARACTER 




BIC 


#177700.1*5 


ONLY SIX BITS 



J5 

CZLCPA COLOR PRINTER DIAGNOSTIC MACRO mil3 12-MAR-85 15:38 
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2399 


014312 


120527 


000023 




CMPB 


•<5.#23 


2400 


014316 


001337 






BNE 


50* 


2401 


014320 


032777 


000200 


164550 90$ : 


BIT 


#200,SOLLPS 


2402 


014326 


001774 






BEQ 


90$ 


2403 


014330 


117705 


164544 




novB 


aOLRBUP.XS 


2404 


014334 


042705 


177700 




BIC 


#177700, *5 


2405 


014340 


120527 


000021 




CMPB 


K5,«21 


2406 


014344 


001365 






BNE 


90$ 


2407 


014346 


000137 


014216 




JMP 


bOi 


2408 


014352 


104000 




100$ : 


EMT 


*0 


2409 


014354 


015536 






PTRDTR 




2410 


014356 


000000 






HALT 




2411 


014360 


000137 


014146 




JMP 


ERCHKB 



WAS IT AN XOFF 

BR. IF NOT (FORGET IT) 

DID ANOTHER ARIVE 

BR. IF NO OTHER CHARACTER 

WELL PICK IT UP 

ONLY SIX BITS 

WAS IT AN XON 

LOOP IF NOT XON 

XON ' DO SOME MORE 

CALL TYP ROUTINE 

"PRINTER IS NOT SENDING DTR" 

STOP 

LOOP AROUND 



I<5 
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SEQ 006a 



2413 












2414 












2415 






: 






2416 
2417 






; 
; 


THIS ROUTINE CHECKS FOR 


2418 






; 


FEATURES I.E. PROGRAMAC 


2419 






i 






2420 014364 






OLSET : 






2421 014364 


104000 






EMT 


♦0 


2422 014366 


015302 






OLASKl 




2423 014370 


104000 






EMT 


♦ 0 


2424 014372 


015335 






0LASK2 




2425 014374 


104000 






EMT 


♦ 0 


2426 014376 


015365 






0LASK3 




2427 014400 


104000 






EMT 


♦0 


2426 014402 


015421 






DLASK4 




2429 014404 


105777 


164412 


401: 


TSTB 


8TKS 


2430 014410 


100375 






BPL 


40 ♦ 


2431 014412 


117700 


164400 




MOVB 


9TKBtl»0 


2432 014416 


105777 


164376 


45»; 


TSTB 


•TPS 


2433 014422 


100375 






BPL 


45 ♦ 


2434 014424 


110077 


164364 




MOVB 


tfO . 8TPB 


2435 014430 


042700 


177700 




BIC 


wl77700,»0 


2436 014434 


122700 


000012 




CMPB 


•12. WO 


2437 014440 


001416 






BEQ 


751 


2438 014442 


122700 


000015 




CMPB 


015 1*0 


2439 014446 


001413 






oef\ 
DcB 




2440 014450 


120027 


000061 




rMDB 




2441 014454 


001421 








1001 


2442 014456 


120027 


000062 




^MDQ 




2443 014462 


001350 






dNc 


AAA 


2444 014464 


004737 


013642 




ICD 


#7.6ETCR 


2445 014470 


020027 


123456 




CnP 




2446 014474 


001743 






DCH 


AAA 


2447 014476 


004737 


014066 


751: 


ICD 


^7 n OTTV 


2448 014502 


000207 






DTC 
N Is 


Wf 


2449 014504 


004737 


013642 


76»! 


ICD 

Jan 




2450 014510 


020027 


123456 




erf 




2451 014514 


001403 








lv3« 


2452 014516 


000767 






DO 

BR 




2453 014520 






100*; 




9l , be 1 LK 


2454 014520 


004737 


013642 




ICO 


2455 014524 


104000 




1051: 


CMT 

tn 1 


♦ U 


2456 014526 


015455 






t\6 ACVC 
ULH3K3 




2457 014530 


012737 


000001 001102 




nuv 


2458 014536 


105777 


164260 


1101: 


TSTB 


STKS 


2459 014542 


100375 






BPL 


1104 


2460 014544 


117700 


164246 




MOVB 


STKB.KO 


2461 014550 


105777 


164244 


115$: 


TSTB 


OTPS 


2462 014554 


100375 






BPL 


1151 


2463 014556 


110077 


164232 




MOVB 


#0.8TPB 


2464 014562 


042700 


177600 




BIC 


0177600, itO 


2465 014566 


122700 


000012 




CMPB 


012.KO 


2466 014572 


001741 






BEQ 


75 ♦ 


2467 014574 


122700 


000015 




CMPB 


015. KO 


2468 014600 


001736 






6EQ 


75 » 


2469 014602 


122700 


000131 




CMPB 


0131, «0 



PRINT CALL 
"DLll TYPE MENU- 
PRINT MESSAGE CALL 
"1 DLVll-F OR DLVll-E" 
PRINT MESSAGE CALL 
"2 OLVll. OLll OR DLVll-J" 
PRINT MESSAGE CALL 
"ENTER MENU SELECTION" 
READ TTY'S STATUS 
BR. IF NOT DONE 
PICK UP CHAR, TYPED 
8 CHECK FOR BUSY 
LOOP JF TTY IS BUSY (BR) 
ECHO CHARACTER TO TTY 
ONLY 6 BITS ALLOUEO 
CHK FOR <LF> DEFAULT 
BR. IF DEFAULT (NO) 
CHK FOR <CR> DEFAULT 
BR. IF DEFAULT (NO) 
UAS IT AN ASCII 1 
BR. IF IT UAS (DLll SEL.) 
UAS IT AN ASCII 2 

:G0 GET LF OR CR 

i CHECK FOR BAD INPUT 

iTRY AGAIN BAD INPUT (NOT CR) 

J CLEAR OUT THE TTY 

RETURN TO CALLEE 

LOOK FOR CR 

UAS THERE AN ERROR 

BR. IF AN ERROR RESTART 

EXIT NO ERROR 

GET CR 

CALL PRINT ROUTINE 

"DOES OL HAVE PROG BAUD RATE" 

SUITCH FOR BAUD RATE NEEDED 

CK TTY IN STATUS 

UAIT FOR DONE 

PICK UP CHARACTER 

CHECK FOR BUSY 

LOOP IF TTY IS BUSY (BR) 

ECHO CHA'ACTER 

ONLY 7 BIT PASS 

CHK FOR <LF> DEFAULT 

BR. IF DEFAULT (N01 

CHK FOR <CR> DEFAULT 

BR. IF DEFAULT (NO) 

UAS AN ASCII Y TCPED 
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c 70 014606 


001412 






BEQ 


2471 014610 


122700 


000116 


120(: 


CMPB 


2472 014614 


001343 






BNE 


2473 014616 


004737 


013642 




JSR 


2474 014622 


020027 


123456 




CMP 


2475 014626 


001736 






BEQ 


2476 014630 


000137 


014476 




JMP 


2477 014634 


004737 


013642 


4971: 


JSR 


2478 014640 


020027 


123456 




CMP 


2479 014644 


001727 






BEQ 


2480 014646 


004737 


014066 


498 1: 


JSR 


2481 01465? 


104000 






EMT 


2482 014654 


016647 






LNIA 


2483 014656 


004737 


014066 




JSR 


2484 014662 


104000 






EMT 


2485 014664 


016701 






LN2 


2486 014666 


004737 


014066 




JSR 


2487 014672 


104000 






EMT 


248S 014674 


016722 






LN3 


2489 014676 


004737 


014066 




JSR 


2490 014702 


104000 






EMT 


2491 014704 


016743 






LN4 


2492 014706 


004737 


014066 




JSR 


2493 014712 


104000 






EMT 


2494 014714 


016764 






LN5 


2495 014716 


004737 


014066 




JSR 


2496 014722 


104000 






EMT 


2497 014724 


017005 






LN6 


2498 014726 


104000 






EMT 


2499 014730 


017026 






LN7 


2500 014732 


004737 


014066 




JSR 


2501 014736 


104000 






EMT 


2502 014740 


017047 






LN8 


2503 014742 


104000 






EMT 


2504 014744 


017070 






LN8A 


2505 014746 


004737 


014066 




JSR 


2506 014752 


104000 






EMT 


2507 014754 


017111 




500t: 


LNIO 


2508 014756 


105777 


164040 


TSTB 


2509 014762 


100375 






BPL 


2510 014764 


117700 


164026 




MOVB 


2511 014770 


105777 


164024 


505$: 


TSTB 


2512 014774 


100375 






BPL 


2513 014776 


110077 


164012 




MOVB 


2514 015002 


042700 


177700 




BIC 


2515 015006 


122700 


000012 




CMPB 


2516 015012 


001475 






BEQ 


2517 015014 


122700 


000015 




CMPB 


2518 015020 


001472 






BEQ 


2519 015022 


005037 


001124 




CLR 


2520 015026 


042700 


177760 




BIC 


2521 015032 


122700 


000001 




CMPB 


2522 015036 


001003 






BNE 


2523 015040 


012737 


040000 001124 




MOV 


2524 015046 






S10»: 




2525 015046 


122700 


000002 




CMPB 


2526 015052 


001003 






BNE 



L5 

15:38 



SEO 0063 



497$ ;BR. IF IT UASN'T A Y 

«116.K0 s CHECK FOR A N 

105$ iBR. IF NOT A N (ERROR) 

H7.GETCR .GO GET LF OR CR 

i»0.«123456 : CHECK FOR BAD INPUT 

105$ iTRY AGAIN BAD INPUT (NOT CR> 

75$ ;EXIT ROUTINE 

|$7.GETCR 5 GO GET LF OR CR 

«0.«123456 i CHECK FOR BAD INPUT 

105$ (TRY AGAIN BAD INPUT (NOT CR) 

*7.CLRTTY J PICK UP PENDING CHARACTERS 

♦0 I CALL TO THE TTY PRINTER 

(BAUD RATE MENU PRINTOUTS 
*7,CLRTTY ;PICK UP PENDING CHARACTERS 

♦0 jCALL TO THE TTY PRINTER 

{BAUD RATE MENU PRINTOUTS 
it7,CLRTTY jPICK UP PENDING CHARACTERS 

♦0 {CALL TO THE TTY PRINTER 

iBAUO RATE MENU PRINTOUTS 
i$7.CLRTTY jPICK UP PENDING CHARACTERS 

♦0 sCALL TO THE TTY PRINTER 

:BAU0 RATE MENU PRINTOUTS 
tf7.CLRTTY :PICK UP PENDING CHARACTERS 

.0 ;CALL TO THE TTY PRINTER 

:BAU0 RATE MENU PRINTOUTS 
K7.CLRTTY sPICK UP PENDING CHARACTERS 

.0 sCALL TO THE TTY PRINTER 

iBAUD RATE MENU PRINTOUTS 
.0 {CALL TO THE TTY PRINTER 

iBAUD RATE MENU PRINTOUTS 
K7.CLRTTY 5 PICK UP PENDING CHARACTERS 

♦ 0 .-CALL TO THE TTY PRINTER 

iBAUD RATE MENU PRINTOUTS 
*0 iCALL TO SUBROUTINE 

s"8 -19200 BAUD" 
#7.CLRTTY :PICK UP PENDING CHARACTERS 

.0 iCALL TO THE TTY PRINTER 

iBAUD RATE MENU PRINTOUTS 
aTKS jCHK TTY IN STATUS 

500$ iUAIT FOR DONE 

aTKB.HO iPICK UP CHARACTER TYPED IN 

aiTPS i CHECK FOR BUSY 

505$ iLOOP UNTIL NOT BUSY 

II0.3TP6 sECHO CHARACTER 

•177700. *0 iONLY 6 BIT PASS 

#12. m) iWAS DEFAULT SEL. <LF > 

544$ iBR. IF DEFAULT SELECTED 

•15. *0 iUAS DEFAULT SEL. <CR> 

544$ iBR. IF DEFAULT SELECTED 

UORK i CLEAR UORK AREA 

•177760. *0 sONLY FOUR BITS PASS 

•l.KO {CHECK FOR A "1" TYPED 

510$ iBR. IF IT UASN'T A ONE 

•40000. UORK tSET FOR 150 BAUD 

02, no : CHECK FOR A TUO T/PEO 

520$ iBR. IF IT WASN'T A '2 



M5 
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2527 01S054 


012737 


050000 


001124 




MOV 


050000, UORK 


2528 015062 








520t: 






2529 015062 


122700 


000003 






CMPB 


•S.KO 


2530 015066 


001003 








BNE 


521 » 


2531 015070 


012737 


060000 


001124 




MOV 


060000, WORK 


2532 015076 








521«: 






2533 015076 


122700 


000004 






CMPB 


«4.itO 


2534 015102 


001003 








BNE 


522 » 


2535 015104 


012737 


070000 


001124 




MOV 


070000. UORK 


2536 015112 








5221: 






2537 015112 


122700 


000005 






CMPB 


05, *0 


2538 015116 


001003 








BNE 


523 » 


2539 015120 


012737 


120000 


001124 




MOV 


012OOOO.UORK 


2540 015126 








523* : 






2541 015126 


122700 


000006 






CMPB 


06. «0 


2542 015132 


001003 








BNE 


524 » 


2543 015134 


012737 


140000 


001124 




MOV 


0 140000. UORK 


2544 015142 








524 »: 






2545 015142 


122700 


000007 






CMPB 


•7.K0 


2546 015146 


001003 








BNE 


525 « 


2547 015150 


012737 


160000 


001124 


543»: 


MOV 


0160000. UORK 


2548 015156 








525 »: 






2549 015156 


122700 


000010 






CMPB 


•8..«0 


2550 015162 


001015 








BNE 


526* 


2551 015164 


012737 


170000 


001124 




MOV 


•170000. UORK 


2552 015172 


004737 


013642 






JSR 


«7.GETCR 


2553 015176 


020027 


123456 






CMP 


M). 0123456 


2554 015202 


001621 








BEO 


498 S 


2555 015204 


000415 








BR 


5301 


2556 015206 


012737 


160000 


001124 


5441: 


MOV 


•160000. UORK 


2557 015214 


000411 








BR 


5301 


2558 015216 








526 »: 






2559 015216 


023727 


001124 


000000 


527$: 


CMP 


UORK. 00 


2560 015224 


001610 








BEQ 


490 1 


2561 015226 


004737 


013642 






JSR 


•7.GETCR 


2562 015232 


020027 


123456 






CMP 


M>. 4123456 


2563 015236 


001603 








BEQ 


498* 


2564 015240 








530f : 






2565 015240 


013737 


001124 


001102 


5401 : 


MOV 


UORK.BRATE 


2566 015246 


053737 


001124 


001074 




BIS 


UQRK.OLLPR 


2567 








1 


SET UP 


ACTUAL OL REG] 


2568 








s 




LPS. #3 


2569 015254 


013703 


001000 






MOV 


2570 015260 


062703 


000002 






ADO 


•2.«3 


2571 015264 


052737 


004000 


001074 




BIS 


•4000.0LLPft 


2572 015272 


013713 


001074 






MOV 


OtLPR.(«3) 


2573 








• 


SHOULD BE ALL SET 


2574 








• 






2575 015276 


000137 


014476 






75$ 



SEQ 0064 



sSET FOR 300 BAUO 

:CHECK FOR A THREE TYPED 
;BR. IF IT WASN'T A -l- 
:SET FOR 600 BAUD 

: CHECK FOR A FOUR TYPED 
su»R. IF IT UASN'T A "4'* 
:SET FOR 1200 BAUD 

: CHECK FOR A FIVE TYPED 
sBR. IF IT UASN'T A "S" 
:SET FOR 2400 BAUD 

;CHECK FOR A SIX TYPED 
;BR. IF IT UASN'T A "6" 
;SET FOR 4800 BAUD 

: CHECK FOR A SEVEN TYPED 
:BR. IF IT UASN'T A "7" 
-.SET FOR 9600 BAUD 

:UAS AN ASCII EIGHT TYPED 

:IT UASN'T AN EIGHT 

iSET FOR 19200KC 

iGO GET LF OR CR 

: CHECK FOR BAD INPUT 

:BR. IF CR RECEIVED (GOOD) 

: LEAVE 

-.DEFAULT IS 9600 
: LEAVE 

i CHECK FOR NOT SET 

:BR. IF NUMBERS NOT VALID 

jGO GET LF OR CR 

: CHECK FOR BAD INPUT 

.TRY AGAIN BAD INPUT (NOT CR) 

i STORE BAUD RATE FOR LATER 
:PUT BAUD RATE IN PLACE 



sGET STATUS REG ADDRESS 
;POINT TO LPR REGISTER 
;SET PBR EW BIT 
tSET SPEED. LINE. PARITY ETC 



sNQ MORE DL QUESTIONS 



N5 
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2577 
2578 
2579 

25ao 

2581 
2582 
2583 

2584 015302 

2585 015335 

2586 015365 

2587 015421 

2588 015455 

2589 015536 

2590 015613 

2591 015643 

2592 015654 

2593 015667 

2594 015723 

2595 01576C 

2596 016006 

2597 016034 

2598 016070 

2599 016156 

2600 016221 

2601 016263 

2602 016317 

2603 016364 

2604 016431 

2605 016476 

2606 016543 

2607 016547 

2608 016615 

2609 016647 

2610 016701 

2611 016722 

2612 016743 

2613 016764 

2614 017005 

2615 017026 

2616 017047 

2617 017070 

2618 017111 

2619 017153 

2620 017224 

2621 017275 

2622 017340 
2623 

2624 
2625 

2626 017410 
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SEQ 0065 



2627 



012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 

012 



000000 
000200 



015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 



124 
061 
062 
124 
104 
120 
123 
061 
062 
124 
123 
061 
062 
124 
042 
061 
062 
124 
124 
124 
124 
124 
000 
124 
040 
040 
040 
040 
040 
040 
040 
040 
040 
040 
124 
124 
124 
111 
111 



.SBTTL SERIAL LINE SETUP MESSAGES 



OPERATOR MESSAGES 



OLASKl 
0LASK2 
DLASK3 
DLASK4 
0LASK5 
PTRDTR 
MENUIO 
nENU20 
HENU30 
MENU40 
NENUl 
MENU2 
MENUS 
MENU4 
MENUDl 
MENU02 
MENUD3 
HENU04 
OLCSRM 
DLVECM 
OZCSRM 
DZVECM 
OLCRLF 
OZLINE 
LNl: 
LNIA: 
LN2: 
LN3: 
LN4: 
LN5: 
LN6: 
LN7: 
LN0: 
LN8A: 
LNIO: 
STOPM: 
OAT AM : 
PARITY: 
PARITZ: 



LSTADR: 



.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ vl2 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 

.ASCIZ <12 
.EVEN 
.NLIST ME 
.LIST BEX 

.WORD 0 

.END START 



15>/TYPE OF OLll MODULE MENU/ 
15>/1 OLVll-E OR DLVll-F/ 
l5>/2 OLVll, DLU OR DLVll-J/ 
15>/TYPE MENU SELECTION <2>7 / 

15>/00ES DL HAVE PROGRAM SELECTABLE BAUD RATE <N>7/ 
15>/PRINTER IS NOT SENDING DATA TERMINAL READY/ 
15>/SERIAL LINE TYPE MENU/ 
15>/1 EIA/ 
15>/2 20 MA/ 

15>/TYPE MENU SELECTION <1>7 / 
15>/SERIAL LINE SELECTION MENU/ 
15>/1 OLll SERIAL LINE/ 
lS>/2 DZll SERIAL LINE/ 
15>/TYPE MENU SELECTION <1>? / 

15>/"0L'' PROGRAMMABLE MAINTENANCE LOOPBACK FEATURE MENU/ 
15>)1 YES (SUCH AS OLll. OLVll -E/F}) 
15>>2 NO (SUCH AS DLVll, OLVll- J)) 
15>/TYPE MENU SELECTION <1>7 / 
15>/TYPE OLll'S CSR ADDRESS <776500>7 / 
VECTOR ADDRESS <300>7 / 
CSR ADDRESS <760100>7 / 
VECTOR ADDRESS <300>7 / 



15>/TYPE OLll 
15>/TYPE OZll'S 
15>/TYPE DZll'S 
15><00> 

15>/TYPE OZll'S 
15 >/ ENTER OZll 
15>/ ENTER OLll 



LINE NUMBER 0- 
S BAUD RATE/ 
S BAUD RATE/ 



7 < 0 >7 / 



15 >/ 1 - 150 BAUD/ 

15 >/ 2 - 300 BAUD/ 

15 >/ 3 - 600 BAUD/ 

15>/ 4 - 1200 BAUD/ 

'5>/ 5 - 2400 BAUD/ 

15>/ 6 * 4800 BAUD/ 

15>/ 7 - 9600 BAUD/ 

15>/ 8 -19200 BAUD/ 

15>/TYPE BAUD RATE SELECTION < 

15>/TYPE NUMBER OF STOP BITS 1 

15>/TYPE NUMBER OF DATA BITS 7 

15>/IS PARITY «;ELECTE0 Y OR N 



7 >?/ 
-R 2 < 
OR 8 < 
N >7/ 



1 >7/ 
7 >?/ 



1S>/IS PARITY ODD (0) OR EVEN (E) < 0 >7/ 



sLAST LOCATION IN PROGRAM 



B6 



CZLCPA 


COLOR PRINTER 


OIAGNOSTIC 


MACRO Ml 113 


12-MAR-85 


IS; 38 










SYMBOL 


TABLE 


















ACNVX 


004576 


OLCSRC 


001032 


HLP4A 


007672 


MES6 


006347 


TK9 


005424 


ACVN 


004514 


OLCSRM 


016317 


HLP5 


007752 


MES7 


006416 


TPB 


001014 


BEGIN 


000000 


OLHERE 


001106 


HLP6 


010040 


riEse 


006457 


TPS 


001020 


BITO • 


• 000001 


OLLPR 


001074 


HLP7 


010100 


MES9 


006475 


TSEAB 


004176 


Bin > 


. 000002 


OLLPS 


001076 


HLP8 


010163 


N 


000014 


TSEDA 


004202 


BITiC • 


0020C0 


OLRATE 


001104 


HUSUR 


001012 


NOP 


000240 


TSENO 


004070 


PTTll ■ 


.'\4000 


OLRBUF 


001100 


LCP3 


005523 


NUMCHR 


001146 


TSRSS 


004232 


fc . .? ■ 


10000 


OLSET 


014364 


LCP4 


005533 


OCT 


001162 


TSRST 


004236 


BXT13 - 


020000 


OLTYPE 


001114 


LCP5 


005542 


OFFSET 


001150 


TSTURO 


014144 


BIT14 - 


040000 


OLVEC 


001042 


LCP7 


005556 


PARITY 


017275 


TYOl 


00S571 


BIT15 ■ 


100000 


OLVECM 


016364 


LEGCHR 


001144 


PARITZ 


017340 


TY02 


005630 


BIT2 - 


000004 


OZCSR 


001036 


LINCNT 


001062 


PASSA 


001164 


TY03 


005673 


BITS • 


000010 


OZCSRC 


001040 


LKS 


001030 


PLKS 


001026 


TYP 


004332 


BIT4 • 


000020 


OZCSRH 


001120 


LNl 


016615 


PRINE 


004250 


TYPA 


004342 


BITS - 


000040 


DZCSRM 


016431 


LNIA 


016647 


PRNNT 


004242 


TYPC 


004352 


BIT6 • 


000100 


OZLINE 


016547 


LNIO 


017111 


PRTMSG 


004312 


TYPO 


004400 


BIT7 • 


000200 


DZLNE 


001072 


LN2 


016701 


PSU 


001010 


TYPDAT 


004464 


BITS - 


000400 


OZLPR 


001070 


LN3 


016722 


PTRC 


001046 


TYPDO 


004426 


BIT9 - 


001000 


OZRBUF 


001116 


LN4 


016743 


PTRDTR 


015536 


TYPDOl 


004434 


BRATE 


001102 


OZTCR 


001066 


LN5 


016764 


PTRPSU 


001052 


TYPF 


004436 


BUFF 


001166 


OZTCRA 


001110 


LN6 


017005 


PTRVEC 


001050 


TYPG 


004450 


CHAR 


001160 


OZVEC 


001044 


LN7 


017026 


RINT 


004274 


TYPINT 


004314 


CHRCNT 


001056 


DZVECM 


016476 


LN8 


017047 


R6 


K000006 


TYPSUR 


005272 


CHRGEN 


001060 


EIA 


001112 


LN8A 


017070 


R7 


lt000007 


TYPSUX 


005336 


CLRTTY 


014066 


EIACHK 


013720 


LPB 


001002 


SAVE 


001134 


U 


000007 


CNTRLG 


005216 


EL 


000037 


LPS 


001000 


SEGCNT 


001054 


UAITl 


001730 


CNl 


001666 


ERCHK 


014122 


LSTAOR 


017410 


SET 


001156 


UAIT2 


002100 


CNIO 


003322 


ERCHKB 


014146 


M 


000002 


SETSER 


010234 


UAIT3 


002366 


CN12 


003550 


ERCOUN 


001136 


MAINTB 


001122 


SETUP 


001306 


UAIT4 


002536 


CN2 


002072 


ERMSl 


006704 


MENUOl 


016070 


SIGNAL 


001154 


UAIT5 


003142 


CN3 


002242 


ERMS2 


006756 


MENU02 


016156 


SL 


000036 


UAIT6 


003406 


cm 


002326 


ERMS3 


007026 


MENUOS 


016221 


STAER 


004606 


UDOl 


001736 


CNS 


002530 


ERMS4 


007120 


MENU04 


016263 


STARN 


004752 


U0D2 


002106 


CN6 


002700 


ERMS5 


007211 


HENUl 


015723 


START 


000200 G 


MODS 


002374 


CN7 


002764 


ERMS6 


007305 


HENUIO 


015613 


STEOA 


004714 


U0D4 


002544 


CONRl 


004600 


ERRl 


001620 


NEHU2 


015760 


STEXT 


004744 


UD05 


003166 


C0NR2 


004602 


ERRIO 


003254 


nENU20 


015643 


ST 0PM 


017153 


UD06 


003414 


C0NR3 


004604 


ERRll 


003362 


MENUS 


016006 


STRCHR 


001140 


UDEl 


001752 


CONV 


004466 


ERR12 


003502 


MENUSO 


015654 


STRCNT 


001142 


U0E2 


002122 


C5BR 


001024 


ERR13 


004262 


nENU4 


016034 


SUR 


001004 


UDE3 


002410 


CYCCNT 


001064 


ERR2 


002024 


MENU40 


015667 


SURE6 


000176 


U0E4 


002560 


OARl 


005512 


ERR3 


002174 


MESOO 


006114 


TESTl 


001464 


WOES 


003202 


0AR2 


005516 


ERR4 


002260 


MESl 


006153 


TEST2 


003052 


UDE6 


003430 


0AR6 


005551 


ERR5 


002462 


MESIO 


006504 


TESTS 


003640 


UERl 


001770 


DAR9 


005567 


ERR6 


002632 


MES14 


006570 


TIME 


001130 


ueR2 


002140 


OATAM 


017224 


ERR7 


002716 


ME 82 


006167 


TIMER 


001132 


UER3 


002426 


OGTS 


005200 


ETIM 


005731 


MES20A 


006607 


TKB 


001016 


UER4 


002576 


DIGITS 


001152 


ETIMO 


006007 


MES21 


006612 


TKHLP 


005440 


UCRS 


003220 


DISPLA 


001006 


GETCR 


013642 


MES22 


006614 


TKINT 


004754 


UER6 


003446 


OISPRE 


000174 


GETGCT 


013560 


MES23 


006620 


TKS 


001022 


UEXl 


002074 


DLASKl 


015302 


HEOl 


006063 


MES24 


006630 


TKl 


005066 


UEX2 


002244 


0LASK2 


015335 


HED2 


006104 


MES25 


006647 


TK2 


005100 


UEX3 


002532 


DLASK3 


015365 


HLPO 


007350 


MES26 


006656 


TKS 


005366 


UEX4 


002702 


0LASK4 


015421 


HLPl 


007420 


MES27 


006672 


TK4 


005372 


UEXS 


003324 


DLASK5 


015455 


HL P2 


007514 


MES3 


006230 


TKS 


005170 


Ut:X6 


003554 


OLCRLF 


016543 


HLP3 


007541 


MES4 


006246 


TK6 


005406 


UORK 


001124 


DLCSR 


001034 


HLP4 


007611 


MESS 


006274 


TK7 


005376 


UORKA 


001126 



SEQ 0066 



I 



CZLCPA COLOR PRINTER OI«GNOSTIC hACRO MJ113 12 MAR 85 15:38 
SYMBOL TABLE 

juT2 005114 UT3 005242 

. ASS. 017412 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 4362 UORDS ( 18 PAGES) 
DYNAMIC MEMORY: 7630 UORDS ( 29 PAGES) 
ELAPSED TIME: 00:01:37 
CZLCPA,CZLCPA/-SP/CR-CZLCPA 



C6 



SEQ 0067 



D6 



CZLCPA 


CREATED BY 


MACRO ON 


12-MAR-8S AT 


15:39 






SYMBOL 


CROSS REFERENCE 








CREF 


VOl 


SYMBOL 


VALUE 


REFERENCES 








ACNVX 


004576 


*2S-1423 


25 1^27 


♦25-1432 


♦25 


-1434 


ACVN 


004514 


025-1427 


25-1438 








BEGIN 


000000 


<^15-608 


15-613 


15-619 


15 


-623 






16-662 


16-665 








BXTO 


■ OOCOOl 


914-599 










BIT! 


■ 000002 


«14-S98 










BITIO 


■ 002000 


»14-S09 










BITll 


■ 004000 


«14-5SB 










BIT 12 


■ 010000 


#14-587 










BYT « V 

BIT13 


■ 020000 


«14-586 










dITI4 


_ Ail AAA A 

■ 040000 


»14-S85 


15-626 








B Y Y 4 e 

BIT15 


■ 100000 


#14-584 










dIT2 


_ A AAA Ail 

" 000004 


#14-597 










BT V9 

dIT3 


_ A AAA 4 A 

■ 000010 


#14-596 










BT Y ii 

BIT4 


AAAA'^A 

" 000020 


#14-595 










BITS 


_ aaaajia 

• 000040 


#14-594 












_, aaai a a 


#14-593 










BIT / 


_ AAAOAA 


#14-592 










OTTO 

BITS 


_ aaajiaa 
■ 000400 


#14-591 










oil 7 


_ AA4 AAA 

« 001000 


#14-590 










OD ATC 


A A 4 C AO 

00X102 


#18-975 


♦28-1701 


♦28-1743 


♦28- 


■1780 


BUrF 


0011 DC 


#18-1004 


22-1209 


22-1225 


22- 


•1237 


CnHR 


AA4 4 £A 

001 IdO 


#18-1001 


♦26-1501 


♦26-1502 


26- 


-1503 






26-1518 


26-1526 


♦26-1527 


Af 

26- 


-1536 


(.HHLN I 


AA 4 AC£. 

OQIODd 


#18-963 












A A 4 A£. A 

OOlOoO 


#18-964 










CLRTTY 


A 4 ilAfC 

014066 


24-1344 


25-1478 


28-1744 


28- 


■1781 






28-2011 


28-2014 


28-2017 


28- 


■2020 






28-2097 


28-2125 


OB O 4 9 A 

28-2130 


28- 


■2161 






29-2291 


#29-2331 


31-2447 


31- 


■2480 






31-2500 


31-2505 








CNTRLu 


005216 


#26-1542 










CNl 


AA 4 

001666 


20-1085 


#20-1085 








CNIO 


AA O 


22-1215 


#22-1215 








CN12 


AAVCCA 

003550 


22-1242 


#22-1242 








CN2 


AA t A^ O 

002072 


21-1117 


#21-1117 










AAO'^il O 

002242 


21-1120 


#21-1120 








CN4 


AAOV 

002326 


21-1128 


#21-1128 








CN5 


002530 


21-1148 


#21-1148 








CNo 


AAI^ AA 

002700 


21-1151 


#21-1151 








CN7 


002764 


21-1159 


#21-1159 








.ONRl 


00460U 


♦25-1419 


25-1439 


#25-1446 






(.□NR2 


004602 


♦25-1420 


25-1440 


#25-1447 








004604 


♦25-1421 


25-1441 


#25-1448 






CUNV 


004466 


24-1326 


#25-1419 


OC 4 H PC 

25-1455 


26- 


1561 


P CBB 


001024 


#16-686 










LtCCNT 


A A 4 Af M 

001064 


#18-966 


*19-1013 


22-1215 


23- 


1269 


f\ AO % 


AACe 4 o 

005512 


#27-1629 










0AR2 


005516 


#27-1630 










0AR6 


005551 


#27-1634 










DAR9 


005567 


#27-1636 










DAT AM 


017224 


28-2132 


#32-2620 









SEO 0068 



15-625 



♦28-2091 

26-1505 
♦26-1542 



28-1858 
28-2023 
28-2166 
31-2483 



26-1569 
♦24-1323 



#25-1445 
15-629 



15-634 



15-642 



16-652 



30-2352 

26-1507 
♦26-1543 



28-1861 
28-2026 
28-2195 
31-2486 



30-2372 ^31-2457 



26-1509 
26-1544 



28-1870 
28-2029 
28-2200 
31-2489 



26-1512 
26-1548 



28-1962 
28-2032 
28-2228 
31-2492 



♦31-2565 
26-1515 



28-1968 

28- 2035 

29- 2289 
31-2495 



24-1327 

















E6 




czlcpa 


CREATED BY 


MACRO ON 12-HAR-85 AT 


15:39 










SYMBOL 


CROSS REFERENCE 








CREF 


VOl 






SYHBOL 


VALUE 
















OGTS 


005200 


26-1506 














DIGITS 


0011S2 


51 A. MA 




26-1522 


26- 


1528 


26- 


1538 


OISPLA 


001006 


WMV V • 7 


•19-1023 

^X 7 XVCi^ 












OISPRE 


000174 


•15-643 


19-1023 












OLASKl 


015302 




#32-2Sfl4 












OL ASK2 


015335 


31-2424 


#32-2585 












0LASK3 


015365 


3 1 - P4P6 


#32-2586 












0LASK4 


015421 


31-2428 


#32-2587 












0LASK5 


015455 


31-2456 


#32-2588 












DLCRLF 


016543 


28-1864 


#32-2606 












DLCSR 


001034 


#16-691 














DLCSRC 


001032 


#16-690 


28-1846 


28-1848 


28- 


1849 






DLCSRH 


016317 


28-1784 


#32-2602 












OLHEPE 


001106 


018-977 


•28-1700 


♦28-1742 


♦28- 


1779 


•28- 


-1873 


Ol.LPR 


001074 


018-972 


•31-2566 


♦31-2571 


31- 


2572 






DLL PS 


001076 


#18-973 


21-1120 


21-1151 


22- 


1215 


22- 


■1242 


DLRATE 


001104 


#18-976 














DLRB'JF 


001100 


#18-974 


21-1122 


21-1153 


22- 


1216 


22- 


-1244 






30-2397 


30-2403 












DLSET 


014364 


28-1860 


#31-2420 












OLTYPE 


001114 


#18-982 














DLVEC 


001042 


#16-694 














DLVECM 


016364 


#32-2603 














DZCSR 


001036 


#16-692 














OZCSRC 


001040 


#16-693 


28-1935 












DZCSRH 


001120 


#18-984 


25-1394 


♦28-1697 


•28- 


1959 






OZCSRM 


016431 


28-1872 


#32-2604 












OZLINE 


016547 


28-1970 


#32-2607 












OZLNE 


001072 


#18-970 


*28-1990 


♦28-1992 


28- 


1996 


28- 


■1997 


OZLPR 


001070 


#18-969 


*28-1699 


♦28-1996 


♦28- 


2092 


•28- 


2116 


*28-2185 


•28-2192 


♦28-2219 


♦28- 


2226 


•28- 


2239 


OZRBUF 


001116 


#18-983 


•28-2238 


30-2384 


30- 


2390 






OZTCR 


001066 


#18-968 


•28-1698 


•28-1993 


•28- 


2004 


28- 


-2243 


DZTCRA 


001110 


#18-979 


•28-2244 


•28-2245 


30- 


2376 






DZVEC 


001044 


#16-695 














DZVECM 


016476 


#32-2605 














EIA 


001112 


#18-980 


•29-2314 


•29-2319 


•29- 


2322 


30- 


•2374 


EIACHK 


013720 


#29-2291 














EL 


- 000037 


#14-602 














ERCHK 


014122 


25-1361 


#30-2351 












ERCHKB 


014146 


#30-2369 


30-2411 












ERCOUN 


001136 


#18-992 


♦20-1085 


♦21-1117 


•21- 


1120 


•21- 


1128 






*22-1232 


•22-1242 


♦25-1365 


25- 


1456 






ERMSl 


006704 


20-1084 


#27-1671 


28- 1950 










ERMS2 


006756 


21-1127 


21-1158 


#27-1672 










ERMS3 


007026 


#27-1673 














ERMS4 


007120 


22-1231 


#27-1674 












ERHS5 


007211 


#27-1675 














ERMS6 


007305 


25-1364 


#27-1676 












ERRl 


001620 


#20-1085 














ERRIO 


003254 


#22-1215 














FRRll 


003362 


#22-1232 















SEQ 0069 



30-2370 
•28-1838 
•28-1839 



♦28-1848 
♦28-1840 



30-2395 
♦28-1849 



30-2401 
•28-1850 



•28-2123 
28-2240 

30-2376 



•28-2147 •28-2149 •28-2159 



•21-1148 ^21-1151 •21-1159 *22-121S 



F6 



CZLCPA 


CREATED 8^ 


MACRO ON 


12-nAR-85 AT 


15:39 








, SYMBOL 


CROSS REFERENCE 








CREF vol 






1 SYMBOL 


VALUE 


REFERENCES 










ERR12 


003502 


«22-1242 












ERR13 


004262 


«25-1365 












ERRS 


002024 


«21-1117 












ERR3 


002174 


021-1120 












ERR4 


002260 


C21-1128 












ERRS 


002462 


«21-1148 












ERR6 


002632 


021-1151 












ERR 7 


002716 


#21-1159 












ETIM 


00S731 


21-1120 


21-1151 


22-1215 


22-1242 


027 


-1642 


ETIMO 


00o007 


21-1117 


21-1148 


027-1643 








BE T CR 


013642 


28-1727 


28-1739 


28-1765 


28-1776 


28 


-1854 






28-2113 


28-2120 


28-2150 


28-2156 


28 


-2182 






39-2315 


29-2320 


31-2444 


31-2449 


31 


-2454 


GETOCT 


013560 


28-1802 


28-1810 


28-1818 


28-1826 


28 


-1834 






28-1924 


029-2256 










HEDl 


006063 


25-1463 


027-1644 










HED2 


006104 


25-1457 


027-1645 










hlpo 


007350 


26-1598 


027-1678 










HLPl 


007420 


26-1600 


027-1679 










HLP2 


007514 


26-1602 


027-1680 










HLP3 


AA^C 4 4 

007541 


26-1604 


027-1681 










MLrA 


AA^£ 1 4 

0076x1 


26-1606 


027-1682 










HLP4A 


AAT£ 

007672 


26-1608 


027-1683 










HLP5 


007752 


26-1610 


027-1684 










HLP6 


A « A Ail A 

010040 


26-1612 


027-1685 










HLP7 


A « f\ 4 A A 

010100 


26-1614 


027-1686 










HLP8 


010163 


26-1616 


027-1687 










HUSUR 


A/% • A • A 

001012 


016-681 


19-1019 


20-1067 


20-1081 


20 


-1085 






21-1128 


21-1148 


A4 4 4 ^ a 

21-1148 


21-1151 


21 


-1151 






22-1215 


22-1242 


A A 4 A A A 

22-1242 


22-1254 


23- 


■1272 






25-1459 


25-1465 










LCP3 


AACC 

005523 


027-1631 












LCP4 


005533 


23-1296 


027-1632 










LCP5 


005542 


22-1202 


027-1633 










LCr7 


005556 


22-1211 


027-1635 










LEGCHR 


A A • 4 ii ii 

001144 


018-995 












LINCNT 


A A • Af A 

001062 


018-965 


•22-1238 


. *> % Ail A 

•22-1249 








LKS 


AA • AV A 

001030 


016-688 












LNl 


016615 


28-2013 


032-2608 










LNIA 


016647 


31-2482 


032-2609 










LNIO 


017111 


28-2037 


31-2507 


JLVA Af 4 O 

032-2618 








LN2 


A 4 £ "VA 4 

016701 


28-2016 


31-2485 


A V A A£ 4 A 

032-2610 








LN3 


A 4 f ^ A A 

016722 


28-2019 


31-2488 


032-2611 








UN4 


A 4 

016743 


28-2022 


31-2491 


AVA A£ 4 A 

032-2612 








LN5 


A 4 £ il 

016764 


28-2025 


31-2494 


032-2613 








LNo 


017005 


28-2028 


31-2497 


JIV A A^ 4 M 

032-2614 










A 1 TA^t 

01 7026 


28-2031 


31-2499 


A V A A£ 4 C 

032-2615 








LN8 


01 704 7 


28-2034 


31-2502 


JkVA A^ 4 f 

032-2616 








LN8A 


017070 


31-2504 


032-2617 










LPB 


001002 


016-674 


21-1118 


21-1149 


25-1368 


•28- 


1843 


LPS 




*28-1930 


*28-1936 


•28-1937 


•28-2235 






001000 


016-669 


20-1074 


21-1113 


21-1117 


21- 


1148 



SEO 0070 



28-1931 
28-2189 
31-2473 
28-1892 



28-2005 
28-2216 
31-2477 
28-1900 



28-2078 
28-2223 
31-2552 
28-1908 



28- 2087 
029-2276 

31-2561 

29- 1916 



21-1117 
21-1159 
23-1276 



21-1117 
21-1171 
23-1310 



21- 1120 

22- 1194 
24-1324 



21- 1120 

22- 1215 
24-1332 



•28-1844 
21-1168 



•28-1851 
25-1367 



•28-1652 
•28-1841 



•28-1929 
•26-1842 



I 



G6 



CZLCPA 


CREATED BY 


MACRO ON 


12 -MAR 85 AT 


15:39 


, SYMBOL 


CROSS REFERENCE 








j SYMBOL 


VALUE 


REFERENCES 








oft 1 AAX 


♦co 104d 


♦28-1847 






OA 1 OPfl 


OA 1 OCQ 
co-1t»Dt» 


28-1960 








3U-eOBo 


31-2569 


LSTAOR 


017410 








M 


■ 000002 








MAINTB 


001122 




cX xlU3 


21-1113 


MENUOl 


016070 




vOc C 




MENU02 


016156 


cO "it H 


5^QQ 
vOc-c JT»7 




MENU03 


016221 




voc COvv 




MENUD4 


016263 




AT5.5Am 
vOc-CD\/X 




MENUl 


015723 




a'<5.5^4A 




MENUlO 


015613 




v^c - C 




MENU2 


015760 


5ft- 1 711 


vjc c^7^ 




MENU20 


015643 




VOC C^7X 




MENU3 


016006 


PR-171'^ 


w<9C c 




MENU30 


015654 


C7-CC^ ' 


«'X5-5^05 
voc c^7c 




MENU4 


016034 


5ft. 1 71S 

CO A ' 


*'^5-5^Q7 




MENU40 


015667 


C7 CC77 


w JC c J~ J 




MESDD 


006114 


A97 - 1 ftAft 

frC ' XO*tv 






MESl 


006153 


X7 * Xv^C 


A57-16A7 

IrC ' XO"* » 




MESIO 


006S04 




*57-1fiS7 

YTC « XV^ ' 




MES14 


006570 


55-1 360 

C J X WOV 


55-1370 

C^ X <9 f V 


#27-1660 


MESS 


006167 


19-1034 


#27-1648 




MES20A 


006607 


027-1661 






MES21 


006612 


26-1556 


26-1580 


#27-1663 


MES22 


006614 


26-1550 


#27-1664 




MES23 


00662C 


26-1568 


#27-1665 




MES24 


006630 


26-1576 


#27-1666 




MES25 


006647 


26-1571 


26-1574 


#27-1667 


MES26 


006656 


26-1560 


#27-1668 




MES27 


006672 


26-1563 


26-1566 


#27-1669 


MES3 


006230 


19-1036 


#27-1649 




MES4 


006246 


19-1040 


#27-1650 




MESS 


006274 


#27-1651 






MES6 


006347 


#27-1652 






MES7 


006416 


24-1337 


#27-1654 




MESS 


006457 


24-1 331 


#27-1655 




MES9 


006475 


54-1 328 

C*9 X«^CV 


#27-1656 




N 


- 000014 


#16-700 


20-1085 


20-1085 






#21-1120 


21-1128 


21-1128 






#21-1151 


21-1159 

C X XX<^ 7 


21-1159 






#22-1235 


22-1242 


22-1242 


NOP 


- 000240 


#16-699 






NUHCHR 


001146 


#18-996 






OCT 


001162 


J14 tt « MAO 

#18-1002 


♦26-1531 


*26-1533 


OFFSET 


001150 


#18-997 






PARITY 


017275 


28-2168 


#32-2621 




PARITZ 


017340 


28-2202 


#32-2622 




PASSA 


001164 


#18-1003 


19-1028 


*19-1030 


PLKS 


001026 


#16-687 






PRINE 


004250 


22-1202 


23-1296 


#25-1361 


PRNNT 


004242 


#25-1360 







SEQ 0071 



CREF vol 



28-1851 *28-l92t> 
28-2233 28-2236 



28-1929 ♦28-1935 
28-2241 30-2356 



28-1936 
30-2378 



28-1942 
30-2380 



21-1168 •28-1707 *28-1745 ♦28-1768 



#20-1085 21-1117 21-1117 #21-1117 

#21-1128 21-1148 21-1148 #21-1148 

#21-1159 22-1215 22-1215 #22-1215 

#22-1242 25-1365 25-1365 #25-1365 



4<26-1535 *26-1536 26-1540 ♦26-1582 



21-1120 

21- 1151 

22- 1232 



21-1120 

21- 1151 

22- 1232 



CZLCPA CREATED BY MACRO ON 12-MAR-85 AT 15:39 
SYHBOL CROSS REFERENCE 



H6 



SEQ 0072 



SYMBOL VALUE 



PRTMSG 

PSU 

PTRC 

PTROTR 

PTRPSU 

PTRVEC 

RINT 

R6 

R7 

SAVE 

SEGCNT 

SET 

SETSER 

SETUP 

SIGNAL 

SL 

STAER 

STARN 

START 

STEOA 

STEXT 

STOPM 

STRCHR 

STRCNT 

SUR 



SUREG 



TESTl 

TEST2 

TEST3 

TIME 

TIMER 

TK6 



TKHLP 
TKINT 
TKS 



TKl 
TKS 
TKS 
TK4 
TK5 
TK6 



004312 
001010 
001046 
015536 
001052 
001050 
004274 
•f(000006 
•i<000007 
001134 
001054 
001156 
010234 
001306 
001154 
. 000036 
004606 

004752 
000200 
004714 
004744 
017153 
001140 
001142 
001004 



000176 



001464 

003052 
003640 
001130 
001132 
001016 



005440 
004754 
001022 



005066 
005100 
005366 
005372 
005170 
005406 



REFERENCES 

*22-1202 
«16-680 
#16-696 

30-2409 
U6-698 
016-697 

25-1362 
*14-579 
«14-580 
#18-991 
#18-962 
#18-1000 

19- 1037 
16-660 

#18-999 
#14-601 

20- 1085 
22-1242 

•25-1454 

#16-651 

#25-1472 
25-1467 
28-2099 

#18-993 

#18-994 

#16-678 

21- 1128 

22- 1215 
25-1459 

#15-644 

21- 1128 

22- 1215 

25- 1459 
16-663 

21- 1172 

22- 1255 
#18-989 
#18-990 
#16-683 

28- 1973 

29- 2335 

26- 1510 
15-630 

#16-685 

28- 1862 

29- 2277 
26-1516 
26-1519 
26-1539 
26-1508 
26-1529 
26-1537 



*23-1296 
#32-2589 



#25-1367 
14-581 
14-582 

•21-1115 



#28-1696 
#19-1012 
•19-1014 

21-1117 
25-1365 
25-1480 
32-2627 
25-1473 
25-1477 
#32-2619 



•19-1022 

21- 1148 

22- 1242 
25-1465 
19-1022 

21- 1148 

22- 1242 

25- 1465 
#20-1066 
#22-1194 
«23-1269 
♦21-1117 
•21-1117 

24-1340 
28-2040 
31-2431 
#26-1597 
#26-1492 
19-1027 

28- 1874 

29- 2300 
#26-1518 
#26-1521 

26- 1541 
#26-1579 
#26-1536 
#26-1583 



CREF vol 



•25-1360 #25-1370 



21-1129 •21-1146 



20- 1087 
26-1551 

21- 1120 
#25-1454 
#25-1483 



#25-1480 



#26-1578 



24-1346 
•26-1554 

21-1128 



21-1160 



26-1593 
•26-1578 

21-1148 



21-1151 



21-1159 



22-1215 



22-1232 



20-1067 


20-1081 


20-1085 


21 


-1117 


21-1117 


21- 


1120 


21- 


1120 


21-1148 


21-1151 


21-1151 


21 


-1159 


21-1171 


22- 


1194 


22- 


1215 


22-1242 


22-1254 


23-1272 


23 


-1276 


23-1310 


24- 


1324 


24 


1332 


26-1557 




















20-1067 


20-1081 


20-1085 


21 


-1117 


21-1117 


21- 


1120 


21- 


1120 


21-1148 


21-1151 


21-1151 


21 


-1159 


21-1171 


22- 


1194 


22- 


1215 


22-1242 


22-1254 


23-1272 


23 


-1276 


23-1310 


24- 


1324 


24- 


1332 


•26-1540 




















21-1173 


24-1334 


24-1348 
















22-1215 


22-1242 


22-1256 
















23-1312 




















♦21-1117 


♦21-1148 


•21-1148 
















•21-1117 


♦21-1148 


♦21-1148 
















25-1474 


26-1501 


26-1542 


28 


-1718 


28-1756 


28- 


1787 


28- 


1876 


28-2102 


28-2135 


28-2171 


28 


-2205 


29-2259 


29-2279 


29-2302 


31-2460 


31-2510 


















20-1066 


24-1338 


25-1472 


28 


-1705 


28-1716 


28- 


1754 


28- 


1785 


28-1971 


28-2038 


28-2100 


28-2133 


28-2169 


28- 


2203 


29- 


2257 


29-2333 


31-2429 


31-2458 


31-2508 













26-1617 



I 



15 



CZLCPA 


CREATED BY 


MACRO ON 


12 -MAR -85 AT 


15:39 












SYMBOL 


CROSS REFERENCE 








CREF vol 










1 SYMBOL 


VALUE 


REFERENCES 














TK7 


005376 


26-1553 


26-1577 


#26-1581 












TK9 


005424 


26-1513 


#26-1591 














TAB 


001014 


«16-682 


*25-1368 


•25-1372 


25-^393 


26-1526 


26-1548 


28- 


4 ^A4 

1721 






28-1879 


28-1976 


28-2043 


^ fl «> « AC 

28-2105 


AB A4 9 O 

28-2138 


AB A 4 ^A 

28-2174 


AB 

28- 


2208 






29-2305 


29-2338 


31-2434 


31-2463 


9« AC* 9 

31-2513 








TPS 


001020 


M6-6B4 


•25-1367 


•25-1371 


25-1394 


25-1396 


AC • VAA 

25-1399 


26- 


1524 






28-1757 


28-1788 


28- 1877 


4 a*vji 

28-1974 


AM AAA 4 

28-2041 


AB A 4 A9 

28-2103 


AB 

28- 


A 4 V£ 

■2136 






29-2260 


29-2280 


29-2303 


29-2336 


V 4 AA V A 

31-2432 


V 4 A A£ 4 

31-2461 


31- 


■2511 


TSEAB 


004176 


24-1333 


#24-1336 














TScDA 


004302 


«24-1338 


24-1339 














TScND 


004070 


23-1274 


23-1311 


#24-1323 












TSRSS 


004232 


«24-1346 
















T Off T 


A Ail 

004236 


24-1325 


24-1343 


#24-1348 












TSTWRD 


014144 


30-2354 


#30-2358 














TYOl 


003571 


20-1069 


#27-1637 














TY02 


005630 


22-1196 


#27-1638 














TY03 


005673 


23-1278 


#27-1639 














TYP 


004332 


15-615 


#25-1381 














TYPA 


004342 


#25-1384 


25-1392 


25-1406 












TYPC 


004352 


25-1385 


#25-1387 














TYPD 


/\A A A A A 

004400 


22-1245 


25-1391 


A^C 4 TOY 

#25-1393 


25-1403 


OC t AAC 

25-1405 








T wan A T 

TYPDAT 


AAA A £ Jl 

004464 


♦22-1244 


22-1246 


•25-1504 


25-130f 


25-1307 


25-1393 


♦25- 


4 Jl A A 

■1402 


TYP DO 


AAA A 

004426 


25-1395 


#25-1399 














TYPDOl 


AAJI A^A 

004434 


25-1398 


#25-1401 














TYPF 


AAA A V£ 

004436 


25-1388 


#25-1402 














TYPG 


AAA A CA 

004450 


25-1390 


#25-1404 














TYPINT 


004314 


19-1012 


#25-1371 














TYPSWR 


005272 


26-1504 


26-1545 


eo-155(: 


W20-1554 










TYPSUX 


005336 


26-1558 


#26-1567 














u 


■ OOOOO f 


016-702 


•21-1117 


31-1117 


dl3 1-1117 


*31 1 1 3A 


31 11 3A 




-1120 






«21-1148 


•21-1151 


31 - 1 Id 


A3 1-1 1 CI 


33 131C 


33 131C 


•22' 


4 91 c 

-X2l3 






«22-1242 
















1 1 AT T 4 


001 /SO 


#21-1117 


21-1117 














mAIT2 


1 AA 

002100 


#21-1120 


21-1120 














■ 1 A W V 

WAITS 


002366 


•21-1148 


21-1148 














WAIT 4 


002536 


#21-1151 


21-1151 














1 1 A TT f 

WAITS 


AAV 4 il '9 

003142 


#22-1215 


22-1215 














WAITb 


AAVil A£ 

003406 


#22-1242 
















WODl 


AA1 

001736 


#21-1117 


21-1117 














W002 


AA^ 4 A£ 

002106 


#21-1120 


21-1120 














UUD3 


AA^ V^il 

002374 


#21-1148 


21-1148 
















002544 


#21-1151 


21-1151 














WODS 


AAV « 

003166 


22-1215 


•22-1215 


39 1 31 C 
ec-lcl5 












WDUD 


AAVil f it 

003414 


#22-1242 


22-1242 














1 tnc 1 


AA1 

001752 


#21-1117 


21-1117 














VOtZ 


AA^ % 

002122 


#21-1120 


21-1120 














UDE3 


AA^il 1 A 

0O2410 


#21-1148 


21-1148 
















AA^C&A 

0O25O0 


#21-1151 


21-1151 














U0E5 


003202 


#22-1215 


22-1215 














UDE6 


003430 


#22-1242 


22-1242 














UERl 


001770 


21-1117 


#21-1117 














UER2 


002140 


21-1120 


#21-1120 















SEO 0073 



28- 1759 

29- 2262 

26-1546 
28-2172 



28- 1790 

29- 2282 

28-1719 
28-2206 



•21-1148 
•22-1242 



21- 1148 

22- 1242 



i 



J6 



CZLCPA CREATED BY MACRO ON 12-MAR-85 AT 15:39 
SYMBOL CROSS REFERENCE 



SEQ 0074 



SYMBOL VALUE 



UER3 
UER4 
UEhS 
UER6 
UEXl 
UEX2 
WEX3 
UEX4 
WEX5 
UEX6 
WORK 



UORKA 

UT2 
UTS 



002426 
002576 
003220 
003446 
002074 
002244 
002532 
002702 
003324 
003554 
001124 



001126 

005114 
005242 



REFERENCES 

21-1148 

21- 1151 

22- 1215 
22-1242 
21-1117 
21-1120 
21-1148 

21- 1151 

22- 1215 
22-1242 

*18-987 
*22-1242 
•28-1825 
•28-1907 
•28-2049 

28-2085 
•31-2543 
«18-988 
•23-1284 
#26-1524 

26-1517 



«21-1148 
#21-1151 
#22-1215 
#22-1242 
#21-1117 
#21-1120 
#21-1148 
#21-1151 
#22-1215 
#22-1242 
♦21-1120 
•23-1283 
•28-1833 
•28-1915 
•28-2053 
28-2091 
•31-2547 
•21-1120 
•23-1287 
26-1525 
26-1520 



CREF vol 



•21-1120 


•21 


-1151 


♦21 


-1151 


♦22- 


■1215 


♦22- 


1215 


•22- 


■1215 


•22- 


1242 


•23-1285 


•23 


-1301 


♦23 


-1303 


♦28- 


■1800 


•28- 


1801 


•28- 


1809 


•28- 


1817 


•28-1837 


28 


-1838 


28 


-1839 


28- 


■1841 


•28- 


1890 


•28- 


1891 


•28- 


1899 


•28-1923 


•28 


-1927 


28 


-1928 


♦28- 


■1967 


•28- 


1982 


•28- 


1989 


28- 


1990 


•28-2057 


•28 


-2061 


♦28 


-2065 


♦28- 


-2069 


•28- 


2073 


•28- 


■2077 


•28- 


2082 


28-2092 


•31 


-2519 


♦31 


-2523 


♦31- 


•2527 


•31- 


2531 


•31- 


2535 


•31- 


2539 


♦31-2551 


♦31 


■2556 


31 


-2559 


31- 


■2565 


31- 


2566 






•21-1120 


♦21 


-1151 


♦21 


-1151 


♦22- 


1215 


♦22- 


•1215 


•22- 


1242 


•22- 


1242 


♦23-1302 


♦23 


-1305 


















26-1523 


«26 


-1546 


26 


-1547 



















I 



I<6 



CZLCPA CREATED BY MACRO ON 12-HAR-65 AT 15:39 
HACRO CROSS REFERENCE 
MACRO NAME REFERENCES 



SEQ OC 



CREF vol 



lENABL 


#17 


-907 


19 


-1027 


























>ERR0R 


#17 


-716 


20 


-1085 


21 


-1117 


21- 


-1120 


21- 


-1128 


21- 


•1148 


21- 


■1151 


21- 


1159 




22 


-1242 


25 


-1365 


























♦PRINT 


#17. 


-933 


22- 


-1202 


23- 


■1296 






















♦PRTSN 


#17- 


745 


#20- 


-1069 


#22- 


■1196 


#23- 


-1278 


















♦SETPS 


#17- 


924 






























IT SURG 


#17- 


949 


20- 


•1067 


20- 


■1081 


20- 


■1085 


21- 


•1117 


21- 


-1117 


21- 


■1120 


21- 


■1120 




21- 


•1148 


21- 


1151 


21- 


■1151 


21- 


■1159 


21- 


■1171 


22- 


•1194 


22- 


■1215 


22 


■1215 




22- 


■1254 


23- 


1272 


23- 


■1276 


23- 


■1310 


24- 


■1324 


24- 


■1332 


25- 


■1459 


25- 


■1465 


ITYPE 


#17- 


941 






























1 WAIT I 


#17- 


756 


21- 


1120 


21- 


1151 


22- 


■1215 


22- 


-1242 














lUAITO 


•17-843 


#21-1117 


#21- 


■1148 























22-1215 



21- 1128 

22- 1242 



22-1232 



21- 1148 

22- 1242 



